【发布时间】:2014-11-10 18:04:36
【问题描述】:
我正在尝试将原始计数放入条形图中,但它总是一团糟:
set.seed(123)
c<-c(2, 3.5, 5, 7.9, 8.8, 12.3)
x<-sample(c, 100, replace=T)
barplot(table(x))
text(c, table(x)+2, labels=as.character(table(x)))
有人有什么建议吗?
【问题讨论】:
我正在尝试将原始计数放入条形图中,但它总是一团糟:
set.seed(123)
c<-c(2, 3.5, 5, 7.9, 8.8, 12.3)
x<-sample(c, 100, replace=T)
barplot(table(x))
text(c, table(x)+2, labels=as.character(table(x)))
有人有什么建议吗?
【问题讨论】:
您只需要确保ylim 足够大,以至于不会将任何文本放置在绘图区域之外,然后您需要条形中间的位置并确保将文本放置在那里.
set.seed(123)
origin <-c(2, 3.5, 5, 7.9, 8.8, 12.3)
x<-sample(origin, 100, replace=T)
b<-barplot(table(x),ylim=c(0,22))
text(x=b, y= table(x)+1, labels=as.character(table(x)))
【讨论】: