ggplot2：facet_grid中x轴标签的条件格式

debugcn 发表于 Dev

米勒524

第一篇文章，所以请您原谅任何违法行为。

数据（russ_defensive）看起来像这样

并且此代码旨在创建一个堆叠条形的facet_grid，该堆叠条形由大写字母有条件地填充，并且根据行业是否防御，将axis.text.x颜色设置为红色或黑色

library(dplyr)
library(ggplot2)

chart_foo <- ggplot(data = russ_defensive, aes(x = industry)) + 
facet_grid(~ sector, space = "free", scales="free") +  
geom_bar(stat="count") +  aes(fill = capitalisation) +
theme(axis.text.x = element_text(angle = 90, color = ifelse(russ_defensive$defensive_industries == "N", "red", "black")))

大约一半的行业是非防御性的（因此russ_defensive $ defensive_industries为“ N”），但是此代码仅将标签之一变为红色（请参见此处），并给出以下错误：

Warning message:
Vectorized input to `element_text()` is not officially supported.
Results may be unexpected or may change in future versions of ggplot2.

是否有这种/替代方法的简单修复，可以根据数据集的列有条件地格式化标签？

感谢您的帮助，如果可重复使用的数据集将很有用，请告诉我。

特朗布兰德

嗯，正如警告告诉您的那样，建议您不要使用矢量化主题输入来选择轴文本颜色（尽管尽管如此，许多人还是尝试过）。我相信这也是该ggtext软件包背后的动机之一，您可以在其中使用markdown来样式化文本。在下面，您将找到一个带有标准数据集的示例，希望它能很好地转换为您的示例。我们只是有条件地将着色应用于某些x轴类别。

library(ggplot2)
library(ggtext)
#> Warning: package 'ggtext' was built under R version 4.0.3

df <- transform(mtcars, car = rownames(mtcars))[1:10,]

red_cars <- sample(df$car, 5)

df$car <- ifelse(
  df$car %in% red_cars,
  paste0("<span style='color:#FF0000'>", df$car, "</span>"),
  df$car
)


ggplot(df, aes(car, mpg)) +
  geom_col() +
  theme(axis.text.x = element_markdown(angle = 90))