在ggplot中构建政治指南针,可以使用以下代码:
library(ggplot2)
# 创建数据框
data <- data.frame(
party = c("Democrat", "Republican", "Independent"),
value = c(60, 40, 20)
)
# 构建政治指南针图
ggplot(data, aes(x = "", y = value, fill = party)) +
geom_bar(stat = "identity", width = 1) +
coord_polar(theta = "y") +
theme_void() +
theme(legend.position = "none") +
labs(title = "Political Compass")
为了使代码更简洁,可以考虑以下几点:
geom_col()
代替geom_bar(stat = "identity")
,它会自动计算条形的高度。scale_fill_manual()
函数设置填充颜色,避免使用fill
参数。theme_minimal()
函数代替theme_void()
,它会提供一个简洁的背景。labs()
函数设置标题,避免使用title
参数。改进后的代码如下:
library(ggplot2)
data <- data.frame(
party = c("Democrat", "Republican", "Independent"),
value = c(60, 40, 20)
)
ggplot(data, aes(x = "", y = value, fill = party)) +
geom_col(width = 1) +
coord_polar(theta = "y") +
theme_minimal() +
theme(legend.position = "none") +
labs(title = "Political Compass") +
scale_fill_manual(values = c("blue", "red", "gray"))
这样,代码更简洁且易读,同时保持了构建政治指南针图的功能。
领取专属 10元无门槛券
手把手带您无忧上云