Различные шрифты и размеры шрифтов в текстовых записях в ggplot2

Я создаю диаграммы, которые имеют две строки в тексте оси. Первая строка содержит имя группы, вторая строка содержит эту группу. Я строю свои метки оси как одну символьную строку с форматом "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 имеет доступный элемент "под-ось"...

Любая помощь будет очень оценена.

Cheers, Аарон

Ответы

Ответ 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))

Пожалуйста, попробуйте настроить код в соответствии с вашей средой (например, положение меток под-оси и шрифт).

Ответ 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)
  )

Ответ 3

Все,

Используя Triad cheat, это самое близкое, что я смог найти на этом решении. Дайте мне знать, если у вас есть вопросы:

library(ggplot2)

spacing <- 0 #We can adjust how much blank space we have beneath the chart here

labels1= paste('Group',c('A','B','C','D'))
labels2 = rep(paste(rep('\n',spacing),collapse=''),length(labels1))
labels <- paste(labels1,labels2)

qplot(1:4,1:4, geom="blank") +
 scale_x_continuous(breaks=1:length(labels), labels=labels) + xlab("")+
 opts(plot.margin = unit(c(1, 1, 3, 0.5), "lines"),
      axis.text.x = theme_text(face='bold', size=14))

xseq <- seq(0.15,0.9,length.out=length(labels)) #Assume for now that 0.15 and 0.9 are      constant plot boundaries

sample_df <-  data.frame(group=rep(labels1,each=2),subgroup=rep(c('a','b'),4),pop=sample(1:10,8))
    popLabs <- by(sample_df,sample_df$group,function(subData){
    paste(paste(subData$subgroup,' [n = ', subData$pop,']',sep=''),collapse='\n')
})

gridText <- paste("grid.text(label='\n",popLabs,"',x=",xseq,',y=0.1)',sep='')

sapply(gridText, function(x){ #Evaluate parsed character string for each element of gridText
  eval(parse(text=x))
})

grid.gedit("GRID.text", gp=gpar(fontsize=12))

Cheers, Аарон