ggplot 改变大小和颜色答案

【问题标题】：ggplot change of size and colorggplot 改变大小和颜色
【发布时间】：2022-11-25 16:39:17
【问题描述】：

我有一个数据集，我需要为其制作图表。

##Data
x <- c(10, 7.5, 5.5, 2.3, 3, 3.9, -2.5, -5, -9)
y <- c(3, 1.25, .75, -1.27, -.6, .88, -7.5, -5, -4)
z <- c("Good", "Good", "Good", "Average", "Average", "Average", "Bad", "Bad", "Bad")

##Dataframe
md <- data. Frame(x, y, z)

##Plotting
plot <- print(md %>% 
                ggplot(aes(x = x,
                           y = y))+
                geom_point(aes(shape = z))+
                geom_smooth(method = lm, se = F, color = "black")+
                labs(x = "X", y = "Y")+
                theme_minimal()+
                scale_shape_manual(values = c(24, 21, 25),
                                   breaks = c("Good", "Average", "Bad"))+
         
                theme(text = element_text(family = "Segoe UI"),
                      axis.line = element_line(size = .3, colour = "black", linetype = 1),
                      axis.ticks = element_line(size = .3, color="black"),
                      axis.ticks.length = unit(.1, "cm")))

请注意，当我使用 scale_shape_manual 时，我设置了三个类似于我正在准备的报告的形状，因此无法更改它们。然而，我需要的是：

用黑色的颜色，和
增加尺寸这些形状（所有尺寸相同但更大）
我尝试使用scale_color_manual(values = c("#000000", "#000000", "#000000"))，但没有产生结果。

请帮助我纠正问题。感谢您的时间！

【问题讨论】：

你有一个错字阻止代码在 md <- data. frame 中运行。您需要删除空格并写data.frame
感谢您指出。不知道为什么当我将代码从 RStudio 复制到此处的 HTML 编辑器时会发生这种情况。

标签： r ggplot2

【解决方案1】：

您需要在aes() 参数之外的geom_point() 中添加fill = "black" 和size = 3 参数。

此外，如果你想打印一个图，你不必将它分配给一个值然后打印它。你可以调用它

library(dplyr)
library(ggplot2)

##Data
x <- c(10, 7.5, 5.5, 2.3, 3, 3.9, -2.5, -5, -9)
y <- c(3, 1.25, .75, -1.27, -.6, .88, -7.5, -5, -4)
z <- c("Good", "Good", "Good", "Average", "Average", "Average", "Bad", "Bad", "Bad")

##Dataframe
md <- data.frame(x, y, z)

##Plotting
md %>% 
  ggplot(aes(x = x, y = y)) +
  geom_point(aes(shape = z), fill = "black", size = 3)+
  geom_smooth(method = lm, se = F, color = "black")+
  labs(x = "X", y = "Y")+
  theme_minimal()+
  scale_shape_manual(values = c(24, 21, 25),
                     breaks = c("Good", "Average", "Bad"))+
  theme(text = element_text(family = "Segoe UI"),
        axis.line = element_line(size = .3, colour = "black", linetype = 1),
        axis.ticks = element_line(size = .3, color="black"),
        axis.ticks.length = unit(.1, "cm"))

【讨论】：

太感谢了！我在 aes 参数中使用了 fill 和 size。