I have the following code, but don't understand how to change the font size of the text on the y-axis (of each plot)ggarrange figure.
My colleague said that the code has not been written in the most standard way and this figures: I used an online example of how to write a code that can be used in ggarrange. I can't compare it with the Rcheatsheet coding (which is ambigous in its brevity anyway) and standard examples like axis.title.y = element_text(size=8) did not work.
It would be really helpful if someone could out where in this code I can change different elements in the theme. For instance, i would also prefer to have a theme_minimal().
PP <- ggplot(data = df, aes(x = Year, y = Polygraphus)) +
geom_bar(stat = "identity") +
labs(title = "Polygraphus poligraphus", x="Year AD", y="% of total assemblage")+
scale_x_continuous(breaks = seq(1000,2020,200)) +
scale_y_continuous(breaks = seq(0.0,0.5,0.1)) +
theme(plot.title=element_text(face="italic"))
PC <- ggplot(data = df, aes(x = Year, y = Pityogenes)) +
geom_bar(stat = "identity") +
labs(title = "Pityogenes chalcographus", x="Year AD", y="% of total assemblage")+
scale_x_continuous(breaks = seq(1000,2020,200)) +
scale_y_continuous(breaks = seq(0.0,0.5,0.1)) +
theme(plot.title=element_text(face="italic"))
Pp <- ggplot(data = df, aes(x=Year, y=Pityophthorus)) +
geom_bar(stat = "identity") +
labs(title = "Pityophthorus pityographus", x="Year AD", y="% of total assemblage")+
scale_x_continuous(breaks = seq(1000,2020,200)) +
scale_y_continuous(breaks = seq(0.0,0.5,0.1)) +
theme(plot.title=element_text(face="italic"))
OF <- ggplot(data = df, aes(x=Year, y =Orchestes)) +
geom_bar(stat = "identity") +
labs(title = "Orchestes fagi", x="Year AD", y="% of total assemblage")+
scale_x_continuous(breaks = seq(1000,2020,200)) +
scale_y_continuous(breaks = seq(0.0,0.5,0.1)) +
theme(plot.title=element_text(face="italic"))
OC <- ggplot(data = df, aes(x=Year, y=Otiorhynchus)) +
geom_bar(stat = "identity") +
labs(title = "Otiorhynchus carinatopunctatus", x="Year AD", y="% of total assemblage")+
scale_x_continuous(breaks = seq(1000,2020,200)) +
scale_y_continuous(breaks = seq(0.0,0.5,0.1)) +
theme(plot.title=element_text(face="italic"))
PA <- ggplot(data = df, aes(x=Year, y=Phyllobius)) +
geom_bar(stat = "identity") +
labs(title = "Phyllobius arborator", x="Year AD", y="% of total assemblage")+
scale_x_continuous(breaks = seq(1000,2020,200)) +
scale_y_continuous(breaks = seq(0.0,0.5,0.1)) +
theme(plot.title=element_text(face="italic"))
LT <- ggplot(data = df, aes(x=Year, y=Limnobaris)) +
geom_bar(stat = "identity") +
labs(title = "Limnobaris t-album", x="Year AD", y="% of total assemblage")+
scale_x_continuous(breaks = seq(1000,2020,200)) +
scale_y_continuous(breaks = seq(0.0,0.5,0.1)) +
theme(plot.title=element_text(face="italic"))
Figure <- ggarrange (PP,PC,Pp,OF,LT,OC,PA,
labels = c("A", "B", "C", "D", "E", "F", "G"),
ncol = 3, nrow = 3)
