ggplot2中标签文本条目中的不同字体和大小

Question

我正在构建在轴文本中有两行的图表.第一行包含组名称,第二行包含该组人口.我将我的轴标签构建为单个字符串,格式为"LINE1 \n LINE2".是否可以为LINE1和LINE2分配不同的字体和大小,即使它们包含在单个字符串中？我希望LINE1大而粗,LINE2小而且不受约束.

这是一些示例代码:

Treatment <- rep(c('T','C'),each=2)
Gender <- rep(c('Male','Female'),2)
Response <- sample(1:100,4)
test_df <- data.frame(Treatment, Gender, Response)

xbreaks <- levels(test_df$Gender)
xlabels <- paste(xbreaks,'\n',c('POP1','POP2'))

hist <- ggplot(test_df, aes(x=Gender, y=Response, fill=Treatment, stat="identity"))
hist + geom_bar(position = "dodge") + scale_y_continuous(limits = c(0, 
    100), name = "") + scale_x_discrete(labels=xlabels, breaks = xbreaks) + 
    opts(
      axis.text.x = theme_text(face='bold',size=12)
      )

我尝试了这个,但结果是一个大的粗体条目和一个小的,无条件的条目:

hist + geom_bar(position = "dodge") + scale_y_continuous(limits = c(0, 
     100), name = "") + scale_x_discrete(labels=xlabels, breaks = xbreaks) + 
     opts(
      axis.text.x = theme_text(face=c('bold','plain'),size=c('15','10'))
     )

另一个可能的解决方案是创建单独的图表元素,但我不认为ggplot2有一个'子轴标签'元素可用...

任何帮助将非常感谢.

干杯,亚伦

Answer 1

我还认为我不能仅使用ggplot2功能来制作图形.

我会用grid.text和grid.gedit.

require(ggplot2)
Treatment <- rep(c('T','C'), each=2)
Gender <- rep(c('Male','Female'), 2)
Response <- sample(1:100, 4)
test_df <- data.frame(Treatment, Gender, Response)

xbreaks <- levels(test_df$Gender)
xlabels <- paste(xbreaks,'\n',c('',''))

hist <- ggplot(test_df, aes(x=Gender, y=Response, fill=Treatment,
  stat="identity"))
hist + geom_bar(position = "dodge") + 
  scale_y_continuous(limits = c(0, 100), name = "") +
  scale_x_discrete(labels=xlabels, breaks = xbreaks) + 
  opts(axis.text.x = theme_text(face='bold', size=12))
grid.text(label="POP1", x = 0.29, y = 0.06)
grid.text(label="POP2", x = 0.645, y = 0.06)
grid.gedit("GRID.text", gp=gpar(fontsize=8))

请尝试根据您的环境调整代码(例如,子轴标签的位置和字体大小).

Answer 2

我在下面找到了另一个简单的解

require(ggplot2)
Treatment <- rep(c('T','C'),each=2)
Gender <- rep(c('Male','Female'),2)
Response <- sample(1:100,4)
test_df <- data.frame(Treatment, Gender, Response)

xbreaks <- levels(test_df$Gender)
xlabels[1] <- expression(atop(bold(Female), scriptstyle("POP1")))
xlabels[2] <- expression(atop(bold(Male), scriptstyle("POP2")))

hist <- ggplot(test_df, aes(x=Gender, y=Response, fill=Treatment,
stat="identity"))
hist +
  geom_bar(position = "dodge") +
  scale_y_continuous(limits = c(0, 100), name = "") +
  scale_x_discrete(label = xlabels, breaks = xbreaks) +
  opts(
    axis.text.x = theme_text(size = 12)
  )