[R] Improve my plot

[varin sacha]

Hi Rui,

Many thanks but when I copy and paste your R code here below I get 2 error mesages :

##############
h <- c(574,557,544,535,534,532,531,527,526,525,
        524,520,518,512,507,504,504,489,488,488,
        487,484,484,474,472,455,444,420)

nms <- c("Fribourg(f)","Valais(d)","Appenzell Rhodes Intérieures",
          "Fribourg(d)","Jura","Schwyz","Schaffhouse","Berne(f)",
          "Thurgovie","Valais(f)","Argovie","Appenzell Rhodes Extérieures",
          "Genève","Zoug","Tessin","Neuchâtel","Vaud","Uri","Nidwald",
          "Berne(d)","Zurich","Obwald","Saint-Gall","Soleure","Lucerne",
          "Glaris","Bâle-Campagne","Bâle-Ville")
nms <- factor(nms, levels = nms)

library(ggplot2)

data.frame(height = h, names = nms) |>
  ggplot(aes(names, height)) +
  geom_col(fill = "deepskyblue2") +
  coord_flip() +
  theme_classic() +
  theme(axis.text.y = element_text(face = "italic"))
##############






Le lundi 20 septembre 2021, 21:54:31 UTC+2, Rui Barradas <ruipbarradas using sapo.pt> a écrit : 





Hello,

With package ggplot2 this is easy.
ggplot2 is meant to work with data in lists or data.frames, so I use the 
new pipe operator to pass the data on to ggplot().


h <- c(574,557,544,535,534,532,531,527,526,525,
        524,520,518,512,507,504,504,489,488,488,
        487,484,484,474,472,455,444,420)

nms <- c("Fribourg(f)","Valais(d)","Appenzell Rhodes Intérieures",
          "Fribourg(d)","Jura","Schwyz","Schaffhouse","Berne(f)",
          "Thurgovie","Valais(f)","Argovie","Appenzell Rhodes Extérieures",
          "Genève","Zoug","Tessin","Neuchâtel","Vaud","Uri","Nidwald",
          "Berne(d)","Zurich","Obwald","Saint-Gall","Soleure","Lucerne",
          "Glaris","Bâle-Campagne","Bâle-Ville")
nms <- factor(nms, levels = nms)

library(ggplot2)

data.frame(height = h, names = nms) |>
  ggplot(aes(names, height)) +
  geom_col(fill = "deepskyblue2") +
  coord_flip() +
  theme_classic() +
  theme(axis.text.y = element_text(face = "italic"))


Hope this helps,

Rui Barradas


Às 20:24 de 20/09/21, varin sacha via R-help escreveu:
> Dear R-experts,
> 
> Here below my R code. I would need your help to improve my graph/plot.
> 
> - The x-axis to be longer not to stop at 500 value
> - All the name on the y-axis to appear not only a few of them and the name (Fribourg(f), Appenzell Rhodes Intérieures,...) to appear entire, not to be cut
> 
> Many thanks.
> 
> ##############
> barplot(height=c(574,557,544,535,534,532,531,527,526,525,524,520,518,512,507,504,504,489,488,488,487,484,484,474,472,455,444,420),names.arg=c("Fribourg(f)","Valais(d)","Appenzell Rhodes Intérieures","Fribourg(d)","Jura","Schwyz","Schaffhouse","Berne(f)","Thurgovie","Valais(f)","Argovie","Appenzell Rhodes Extérieures","Genève","Zoug","Tessin","Neuchâtel","Vaud","Uri","Nidwald","Berne(d)","Zurich","Obwald","Saint-Gall","Soleure","Lucerne","Glaris","Bâle-Campagne","Bâle-Ville"),font.axis=4, horiz=T,col="deepskyblue2",las=2)
> ##############
>  
> 
>  
> 
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>