在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")

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"))