theme(legend.position = ‘right’, legend.title = element_blank(), legend.margin = margin(10, 10, 10, 10))添加去掉NA项代码

在ggplot2中，`theme()`函数用于设置图形的主题样式，包括图例的位置、标题等。当你想移除图例标题，并调整图例距离图表边缘的距离时，你可以这样做：

library(ggplot2)

# 假设df是一个数据框，ggplot对象叫做p

p <- ggplot(df, aes(x = x_variable, y = y_variable, fill = group_variable)) + ... # 添加其他绘图元素

# 设置主题，将legend.position设置为'rectangle', 'top', 'bottom', 'left', 或 'right'
# legend.title设为element_blank()表示删除图例标题
# legend.margin设定图例与边界的间距
p <- p + theme(
  legend.position = "right",   # 图例放置在右侧
  legend.title = element_blank(),   # 移除图例标题
  legend.margin = margin(10, 10, 10, 10)   # 上下左右间距各10单位
)

# 如果你想过滤掉含有NA值的数据点再展示图例，可以在绘制之前做数据清洗
p_clean <- p %>% filter(!is.na(fill))
p_clean  # 显示已处理后的图形