如何在R中制作一个海盗情节

install.packages(c("ggplot2", "ggthemes", "ggpubr"))

# 创建示例数据框
data <- data.frame(
  Group = c("Group A", "Group B", "Group C"),
  Value = c(10, 15, 8)
)

library(ggplot2)

# 绘制海盗情节
plot <- ggplot(data, aes(x = Group, y = Value, fill = Group)) +
  geom_bar(stat = "identity", width = 0.5) +
  theme_minimal() +
  theme(legend.position = "none") +
  labs(x = "Group", y = "Value", title = "Pirate Plot")

# 显示海盗情节
print(plot)

library(ggthemes)
library(ggpubr)

# 自定义海盗情节
plot_custom <- plot +
  theme_economist_white() +
  scale_fill_manual(values = c("#FF9900", "#336699", "#CC0000")) +
  labs(title = "Custom Pirate Plot", subtitle = "Subtitle", caption = "Source: Your Data Source")

# 显示自定义海盗情节
print(plot_custom)