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@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.
______________________________________________
R-help@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.
