小编Sea*_*der的帖子

这可能最终成为一个expression或一个call问题,但我试图有条件地格式化单个轴标签.

在下面的示例中,我想有选择地加粗其中一个轴标签:

library(ggplot2)

data <- data.frame(labs = c("Oranges", "Apples", "Cucumbers"), counts = c(5, 10, 12))

ggplot(data = data) + 
  geom_bar(aes(x = labs, y = counts), stat="identity")`

有类似的问题在这里,但解决方案涉及theme和element_text.我试图直接使用轴标签.

我可以手动执行此操作,如下所示:

breaks <- levels(data$labs)
labels <- breaks
labels[2] <- expression(bold("Cucumbers"))

ggplot(data = data) + 
  geom_bar(aes(x = labs, y = counts), stat="identity") + 
  scale_x_discrete(label = labels, breaks = breaks)

但是,如果我尝试通过索引而不是输入"Cucumbers"来做到这一点,我会收到以下错误:

breaks <- levels(data$labs)
labels <- breaks
labels[2] <- expression(bold(labels[2]))

ggplot(data = data) + 
  geom_bar(aes(x …