# 更改条形颜色
barplot(data[,2],names.arg = data[,1],main="条形图",xlab="分组",ylab="统计量",col="blue")
?...xlab="分组",ylab="统计量",
col=c("blue","red"),
legend=c("Low Dose","High Dose"),
ylim...xlab="分组",ylab="统计量",
col=c("blue","red"),
legend=c("Low Dose","High Dose"),
ylim...(data,aes())+ geom_bar()
library(ggplot2)
csub ggplot2.txt", sep="\t", header...ggplot(data, aes(waiting)) +
geom_histogram()
#set binwidth 5
ggplot(data, aes(waiting)) +
geom_histogram