这是我的数据框:
#create data frame building <- c("Burj \nKhalifa","Zifeng \nTower","Bank of \namerica Tower","Burj Al arab","Emirates \nTower One","New York \nTimes Tower","Emirates \nTower Two","Rose Rayhaan \nby Rotana","The \nPinnacle","Minsheng \nBank Building")occupiable<- c(585,317,235,198,241,220,213,237,265,237)nonoccupiable <- c(244,133,131,124,113,99,97,96,95,94)df.build <- data.frame(building,occupiable,nonoccupiable)#melt data frame for stack bar plotdf.build2 <- melt(df.build,ID.vars="building")
我的堆积条形图:
#comparision true and percived valuesggplot(df.build2,aes(x=reorder(building,-value),y=value,fill=variable)) + geom_bar(stat="IDentity") + xlab("") + ylab("") + #geom_text(aes(label = c("29%" "30%","36%","39%","32%","31%","29%","28%")),size = 3,hjust = 0.5,vjust = 3,position = "stack") + theme(legend.position="top") + ggtitle("PorównanIE wartości prawdziwych i odczuwalnych")
我希望在我的代码中使用geom_text()中的标签进行绘图(蓝条高度/整条高度).它应该放在蓝色区域.我该怎么做?
解决方法 另一种解决方案(我也改变了x轴文字的角度):# creating percentage variablesdf.build$occ.perc <- round(df.build$occupiable / (df.build$occupiable + df.build$nonoccupiable) * 100)df.build$nonocc.perc <- round(df.build$nonoccupiable / (df.build$occupiable + df.build$nonoccupiable) * 100)# melt data frame for stack bar plot![enter image description here][1]df.build2 <- cbind( melt(df.build,ID = c("building"),measure = c(2:3)),melt(df.build,measure = c(4:5),value.name = "perc"))df.build2 <- df.build2[,-c(4,5)]df.build2$perc <- ifelse(df.build2$variable=="occupiable",df.build2$perc==NA,df.build2$perc)# creating the plotggplot(df.build2,fill=variable)) + geom_bar(stat="IDentity") + xlab("") + ylab("") + geom_text(aes(label = perc),vjust = 2,position = "stack") + theme(legend.position="top",axis.text.x = element_text(angle = 45,vjust=0.5)) + ggtitle("PorównanIE wartości prawdziwych i odczuwalnych")
结果:
总结以上是内存溢出为你收集整理的geom_text仅在堆积条形图的顶部全部内容,希望文章能够帮你解决geom_text仅在堆积条形图的顶部所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)