如何在R中隐藏单个关键点？

我只是想说清楚：我对R比较陌生，我使用的代码是从别人那里借来的

我有一张投票平均数图表：

这是我的密码：

库（“tidyverse”）
民意测验%
ggplot（aes（x=截止日期，y=支持，颜色=参与方））+
几何点（尺寸=2.5，α=0.275）+
geom_光滑（se=FALSE，方法=“黄土”，跨度=1）+
实验室（y=NULL，
x=NULL）+
辅助线（颜色=辅助线\图例（ncol=1，override.aes=list（线型=0，尺寸=3，alpha=1）））+
规模颜色颜色的手工手册（标签=c（标签=c）（标签为c（标签为c）（“Simon奈特（LFI）”，“IPF-PCF-G·s）”，“贝利亚德（EELV）”，“贝利亚德（P-P-G·s）”，“贝利尔（P-P-PCF-G-G·s）”，“贝利（P-P-G-s）”，“贝利亚德（EELV）”，“甘纳（DVG）”，，“甘特泽（DVG）”，，“甘特泽（DVG）”，，，“甘特泽（DVG）”，，“格里维维维维（DVG）”，，“格里维维维维（LREM）、格里维维（LREM）、格里维维维（LREM）、格里维（LREM）们（LREM-他们（LREM-他们（LREM）们）、格里沃（LREM-他们（LREM-他们（LREM）们）、格里姆（LREM-他们（LREM--#ffeb00“（“FF7F50”、“adc1fd”、“0066CC”、“0D378A”、“808080”、“808080”））+
主题(
plot.margin=裕度（t=0，单位=“cm”），
plot.background=element_blank（），panel.background=element_rect（fill=“grey92”，color=NA），
panel.border=element_blank（），legend.background=element_rect（fill=“transparent”，color=NA），
legend.key=element\u rect（fill=“transparent”，color=NA），legend.title=element\u blank（），
strip.background=元素（fill=“transparent”，color=NA），
panel.grid.major=元素线（color=“#FFFFFF”），panel.grid.minor=元素线（color=“#FFFFFF”，size=0.25），
axis.ticks=element\u line（color=“grey20”），axis.line=element\u blank（），
plot.title=元素\文本（大小=12，大小=0），
plot.subtitle=元素\文本（大小=12，大小=0），
plot.caption=element_text（大小=12，颜色=“#212121”），
axis.title=元素文本（size=12，face=“plain”），axis.text=元素文本（size=12，face=“plain”，color=“grey30”），
legend.position=“right”，
legend.text=元素\文本（大小=12），strip.text=元素\文本（大小=12，face=“plain”），
legend.margin=裕度（t=0，单位=“厘米”），
) +
比例连续（中断=顺序（0,33,5），小中断=顺序（0,33,1），极限=c（0,33），扩展=c（0,0））+
比例x__日期（中断=“6个月”，小中断=“1个月”，扩展=c（0,0））
#几何点（数据=结果，颜色=c（“#808080”），尺寸=4，形状=5）+
#几何点（数据=结果，颜色=c（“#808080”），尺寸=3.5，形状=18）
发展主任（）

正如你所见，格里沃的路线被分割，以区分维拉尼持不同政见者参选的前后；它实际上是两个独立的行（在数据集中也是独立的）。因此，格里沃的名字必须出现两次

---

如何删除单个集合的键（删除点和回归线的键）？

以下是一个技巧。要删除图例键，请将其从

breaks

参数中删除到

scale.*\u manual

或等效项中，但必须保留相同数量的

值，因为
颜色/填充中有唯一的值。

通过一个例子可以更好地说明这一点。我将使用内置数据集
iris


要删除与
“versicolor”
相关的图例键

只是不要将其包含在
中断中

library(ggplot2)

df1 <- iris[3:5]

ggplot(df1, aes(Petal.Length, Petal.Width, color = Species)) +
  geom_point() +
  geom_smooth(se = FALSE, method = "loess", span = 1) +
  scale_color_manual(breaks = c("setosa", "virginica"),
                     values = c("red", "green", "blue"))

库（ggplot2）
df1如果有实际数据要使用，您可能会得到更多的关注。难道您不能在管道传输到
ggplot
之前使用
dplyr:：filter
来保留您想要的内容吗？@RuiBarradas我想使用所有列，唯一要删除的是其中一列的键
levels(df1$Species)
#[1] "setosa"     "versicolor" "virginica" 

library(ggplot2)

df1 <- iris[3:5]

ggplot(df1, aes(Petal.Length, Petal.Width, color = Species)) +
  geom_point() +
  geom_smooth(se = FALSE, method = "loess", span = 1) +
  scale_color_manual(breaks = c("setosa", "virginica"),
                     values = c("red", "green", "blue"))