library(tidyverse)
dt <- diamonds[1:1000, ]
如题:
p1 <- dt %>%
ggplot(aes(x = carat, y = cut, color = cut)) +
geom_point() +
labs(title = "修改前")
p2 <- dt %>%
ggplot(aes(x = carat, y = cut, color = cut)) +
geom_point() +
guides(color = guide_legend(override.aes = list(size = 3))) +
labs(title = "修改后")
p1 + p2
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。