admin管理员组文章数量:1630191
今天来用Chatgpt绘制一下R语言中常用的气泡图和热图!
1.气泡图:
# 创建示例数据
x <- c(1, 2, 3, 4, 5) # X轴数据
y <- c(2, 4, 1, 3, 5) # Y轴数据
sizes <- c(6, 12, 18, 24, 30) # 气泡的大小
# 绘制气泡图
plot(x, y, type="n", xlab="X Axis", ylab="Y Axis", main="Bubble Chart Example")
symbols(x, y, circles=sizes, inches=0.1, fg="blue", bg="lightblue", add=TRUE)
运行结果:
# 安装ggplot2包,如果已安装则加载它
if (!require(ggplot2)) install.packages("ggplot2")
library(ggplot2)
# 准备数据:包含X轴、Y轴位置和气泡大小的数据框
df <- data.frame(
X = 1:5, # X轴位置
Y = c(2, 4, 1, 3, 5), # Y轴位置
BubbleSize = c(6, 12, 18, 24, 30), # 气泡大小
Category = factor(c("A", "B", "C", "D", "E")) # 类别,用于颜色区分
)
# 绘制气泡图
ggplot(df, aes(x = X, y = Y, size = BubbleSize, color = Category)) + # 添加颜色映射
geom_point(alpha = 0.7, show.legend = TRUE) + # 设定气泡透明度和显示图例
scale_size(name = "气泡大小", range = c(10, 40)) + # 控制气泡的显示大小范围
scale_color_brewer(palette = "Set3", name = "类别") + # 使用预设的颜色板并添加图例标题
theme_minimal(base_size = 14) + # 使用简洁主题并设置基础字体大小
labs(title = "美化后的气泡图",
x = "X轴",
y = "Y轴") +
theme(plot.title = element_text(hjust = 0.5), # 居中对齐标题
legend.position = "right") # 将图例放置在右侧
# 显示图表
热图
# 安装和加载pheatmap包
if (!require(pheatmap)) install.packages("pheatmap")
library(pheatmap)
# 创建示例数据
data <- matrix(rnorm(100), nrow=10)
# 绘制热图
pheatmap(data,
color = colorRampPalette(c("blue", "white", "red"))(100), # 定义颜色
cluster_rows = TRUE,
cluster_cols = TRUE,
show_rownames = FALSE,
show_colnames = FALSE,
main = "Heatmap with pheatmap")
运行结果:
Chatgpt对于我们用R语言绘图的基本要求都完成的很好,代码也基本都能够copy过来直接运行不报错,我们只需要根据自己的数据修改参数就可以上手了。下一步其实可以探索输入给ChatGPT4你自己的数据集,比如csv\xlsx等等,让它帮你直接分析这些数据进行可视化,这个功能才比较实用。
版权声明:本文标题:Chatgpt 4如何订阅?——用ChatGPT4 R语言可视化! 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dianzi/1729035203a1183619.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论