R语言多组图形状与X轴调整问题求助

针对你遇到的三个问题，逐个解决如下：

问题1：设置点形状后点消失 #

你使用scale_shape_manual时，breaks参数填了数字6:12，但分组变量obj_name是字符串（"Obj_6"到"Obj_12"），两者不匹配导致点无法对应显示。只需把breaks改成实际的分组名称，values保留6:12即可。

问题2：图例顺序混乱 #

将obj_name转换为有序因子，指定顺序为从"Obj_6"到"Obj_12"，ggplot会按照因子的预设顺序渲染图例。

问题3：X轴显示全部power值并垂直显示标签 #

1. 确保power为数值型，通过scale_x_continuous指定breaks为所有需要显示的power数值；
2. 在theme中设置axis.text.x的角度为90度，让标签垂直显示避免拥挤。

修改后的完整代码 #

# 预处理数据：转换为有序因子，统一数据类型
graph_data_long <- graph_data_long %>%
  mutate(
    obj_name = factor(obj_name, levels = paste0("Obj_", 6:12), ordered = TRUE),
    power = as.numeric(power)
  )

# 绘图代码
graph_data_long %>%
  ggplot(aes(x = power, y = value, group = obj_name, color = obj_name, shape = obj_name)) +
  geom_line() +
  geom_point() + 
  scale_y_continuous(trans = "log10") +
  # 匹配分组名称设置点形状
  scale_shape_manual(
    breaks = paste0("Obj_", 6:12),
    values = 6:12,
    name = "group"
  ) +
  # 强制显示所有power值作为X轴刻度
  scale_x_continuous(breaks = unique(graph_data_long$power)) +
  theme_linedraw() +
  # 设置X轴标签垂直对齐
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  )

补充说明 #

• 如果power是离散分类值，也可以转换为因子：power = factor(power, levels = unique(sort(as.numeric(graph_data_long$power))))，这样ggplot默认会显示所有水平
• 有序因子的levels参数严格指定了分组顺序，确保图例和折线顺序完全一致

内容的提问来源于stack exchange，提问作者Jason Liu