我有一个类似的标签划界文件：

Question

someplot <- ggplot(my_data, aes(x = as.numeric(levels(variable))[variable], y = value.1)) + 
geom_point(aes(colour=cut(value, c(-Inf,40,Inf))), size = 1) +
scale_color_manual(name = "age",
                 values = c("(-Inf,40]" = "orange",
                            "(40, Inf]" = "blue"),
                 labels = c("<40", ">40")) +
scale_x_continuous(limits = c(0, 16600), breaks = seq(0, 16600, by = 200)) +
scale_y_continuous(limits = c(0.001, 0.95), breaks=c(0.001, 0.005, 0.010, 0.015, 0.020, 0.040,0.060, 0.080)) +
theme(plot.title = element_text(hjust = 0.5, size=20)) +
theme(axis.text.x=element_text(size=rel(1), angle=90)) +
theme(legend.key.size = unit(1, 'cm'),
    legend.key.height = unit(1, 'cm'), 
    legend.key.width = unit(1, 'cm'), 
    legend.title = element_text(size=14),
    legend.text = element_text(size=14))
plot(someplot)

为颜色创建另一个变量并设置相应的值：

my_data$colors <- 1 
my_data$colors[my_data$value>40] <- 2
my_data$colors[my_data$value.1<0.005] <- 3
someplot <- ggplot(my_data, aes(x = variable, y = value.1)) +
geom_point(aes(colour=as.factor(colors))) +
scale_color_manual(name = "age",
                     values = c("1" = "orange",
                                "2" = "blue",
                                "3" = "gray"),
                     labels = c("<40", ">40","<0.005")) +
scale_x_continuous(limits = c(0, 16600), breaks = seq(0, 16600, by = 200)) +
scale_y_continuous(limits = c(0.001, 0.95), breaks=c(0.001,0.005, 0.010, 0.015, 0.020, 0.040,0.060, 0.080)) +
theme(plot.title = element_text(hjust = 0.5, size=20)) +
theme(axis.text.x=element_text(size=rel(1), angle=90)) +
theme(legend.key.size = unit(1, 'cm'),
        legend.key.height = unit(1, 'cm'), 
        legend.key.width = unit(1, 'cm'), 
        legend.title = element_text(size=14),
        legend.text = element_text(size=14)) 
plot(someplot)

Answer 1