【求助】用text给每条标注时遇到问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

小弟纯小白一个...在给barplot作出的条形做标注时遇到了这样的问题，标注的小数点后位数太多了，请问如何设置成小数点后两位。附代码。
options(digits=2)
a=c(Goodcon$INJ_SEV)
b=table(a)
b1=as.vector(b)
c=prop.table(table(a))
c1=as.vector(c)
g=data.frame(b1,c1)
dimnames(g)=list(c('0','1','2','3','4'),c("Frequency","Ratio"))
x<-barplot(g$Ratio,font.lab=2,main="Good Condition",xlab="Injury Severity",ylab="Ratio",
            xlim=c(0,6),ylim=c(0,0.7),names.arg=c("0","1","2","3","4"))
gR<-paste(" ",g$Ratio)
text(x,g$Ratio,labels=gR,cex=1.5,pos=3)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Text ext TeX Frequency options 小数点 如何

上传有问题，重新发
> options(digits=2)
> a=c(Goodcon$INJ_SEV)
> b=table(a)
> b1=as.vector(b)
> c=prop.table(table(a))
> c1=as.vector(c)
> g=data.frame(b1,c1)
> dimnames(g)=list(c('0','1','2','3','4'),c("Frequency","Ratio"))
> x<-barplot(g$Ratio,font.lab=2,main="Good Condition",xlab="Injury Severity",ylab="Ratio",
+             xlim=c(0,6),ylim=c(0,0.7),names.arg=c("0","1","2","3","4"))
> gR<-paste(" ",g$Ratio)
> text(x,g$Ratio,labels=gR,cex=1.5,pos=3)

已经通过sprintf函数解决了，请关闭吧