R Copy 输出 例子 library("ggplot2")gfg_data<-data.frame(x=c(1,2,3,4,5),y=c(5,4,3,2,1))gfg_plot<-ggplot(data=gfg_data,aes(x,y))+geom_bar(stat="identity")gfg_plot+theme(axis.text=element_text(size=50,angle=180)) R Copy 输出
ggplot(janeaustensentiment, aes(index, sentiment, fill = book)) + geom_bar(stat = "identity", show.legend = FALSE) + facet_wrap(~book, ncol = 2, scales = "free_x") + theme_minimal(base_size = 13) + labs(title = "Sentiment in Jane Austen's Novels", y = "Sentiment") + scal...