我正试着建立一个水平条形图。
library(ggplot2)
library(plyr)
salary <- read.csv('September 15 2015 Salary Information - Alphabetical.csv', na.strings = '')
head(salary)
salary$X <- NULL
salary$X.1 <- NULL
salary$Club <- as.factor(salary$Club)
levels(salary$Club)
salary$Base.Salary <- gsub(',', '', salary$Base.Salary)
salary$Base.Salary <- as.numeric(as.character(salary$Base.Salary))
salary$Base.Salary <- salary$Base.Salary / 1000000
salary <- ddply(salary, .(Club), transform, pos = cumsum(Base.Salary) - (0.5 * Base.Salary))
ggplot(salary, aes(x = Club, y = Base.Salary, fill = Base.Salary)) +
geom_bar(stat = 'identity') +
ylab('Base Salary in millions of dollars') +
theme(axis.title.y = element_blank()) +
coord_flip() +
geom_text(data = subset(salary, Base.Salary > 2), aes(label = Last.Name, y = pos))(对此线程的信用:用于文本位置计算的Showing data values on stacked bar chart in ggplot2 )
由此产生的情节如下:

有一段时间我完全糊涂了,因为我使用xlab来指定标签,使用theme(axis.title.y = element_blank())来隐藏y标签。但是,这不起作用,我通过将它更改为ylab使其正常工作。这听起来很混乱,是故意的吗?
发布于 2015-11-19 21:49:54
这听起来很混乱,是故意的吗?
是。
与其使用theme()来隐藏y标签,我认为
labs(x = "My x label",
y = "") 更直截了当。
当你翻转x和y时,它们会带着标签。如果不是这样的话,在这两种情况中的一种情况下,一个有坐标翻转和没有坐标翻转的图形就会有不正确的轴标签--这看起来既混乱又不一致。按原样,标签将始终正确(带和不带coord_flip).
另一方面,主题是在事实之后应用的.
https://stackoverflow.com/questions/33814931
复制相似问题