R ggplot : How can I create conditional labeling for a continuous axis ticks

Question

我想使用逻辑而非硬编码有条件地更改连续刻度标记标签的颜色/外观/等。例如:

library(tidyverse)
library(viridis)
xx=rpois(1000,lambda = 40)
y=density(xx,n=3600,from=0)

ggplot(data.frame(x = y$x, y = y$y), aes(x, y)) + 
  geom_line() + 
  geom_segment(aes(xend = x, yend = 0, colour = y)) + 
  scale_color_viridis() +
  labs(y='Density',x='Count',colour='Density')+
  geom_vline(xintercept=40,color='red') +
  scale_x_continuous(breaks=c(0,40,seq(25,100,25)),limits=c(0,100))+
  theme(axis.text.x = element_text(face=c('plain','bold',rep('plain',4)),
                                   color=ifelse(y$x==60,'red','black')))

所以在我上面的例子中，硬编码出现在 face 函数中并且有效(我可以对 color 做同样的事情)。这没什么大不了的，因为我只有几次休息时间。不过，在未来的情况下，我的坐标轴可能需要更多的中断或不太简单的着色方案。是否有更有效的解决方案来创建基于条件逻辑的标签？我的第一次尝试是在 color 函数中看到的，但那不起作用。问题是识别要在逻辑语句中使用的对象。也许有一个幕后变量我可以调用中断(类似于使用 ..level.. 绘制密度图)。如果是这样的话，如果你能教我如何找到它/自己弄清楚的话，加分

Answer 1

非常感谢 Djork 教我一些 QnA 礼仪......

我能够通过在 ggplot 之外定义我的断点然后在 theme 函数中使用 ifelse 逻辑来创建我想要的结果来解决这个问题。我的原始代码的更新(和工作)示例如下:

library(tidyverse)
library(viridis)
xx=rpois(1000,lambda = 40)
y=density(xx,n=3600,from=0)

med_x=median(xx)
breakers = c(seq(0,100,25),med_x)

ggplot(data.frame(x = y$x, y = y$y), aes(x, y)) + 
  geom_line() + 
  geom_segment(aes(xend = x, yend = 0, colour = y)) + 
  scale_color_viridis() +
  labs(y='Density',x='Count',colour='Density')+
  geom_vline(xintercept=40,color='red') +
  scale_x_continuous(breaks=breakers,limits=c(0,100))+
  theme(axis.text.x = element_text(face=ifelse(breakers==med_x,'bold','plain'),
                                   color=ifelse(breakers==med_x,'red','black')))

我还没有在更复杂的逻辑上尝试过这种方法，但我认为这种方法适用于所有逻辑格式。