R语言数据可视化！人生苦短，我用Chatgpt!

今天来测试一下Chatgpt利用R语言的数据可视化功能：

折线图

# 安装和加载ggplot2包
if(!require(ggplot2)) install.packages("ggplot2")
library(ggplot2)

# 创建数据框
data <- data.frame(Time = 1:10, Value = c(2, 3, 5, 7, 8, 11, 14, 15, 18, 20))

# 使用ggplot函数加geom_line绘制折线图
ggplot(data, aes(x = Time, y = Value)) + 
  geom_line(color = "blue") + 
  geom_point(color = "red") +  # 添加点
  labs(x = "Time", y = "Value", title = "Line Plot with ggplot2") +
  theme_minimal()  # 使用简洁主题

运行结果：

呦，还不赖嘛，后续可以根据自己的需要修改参数

直方图  

# 创建一些示例数据
set.seed(123)  # 设置随机种子以便结果可复现
data <- rnorm(100, mean = 50, sd = 10)  # 生成100个服从正态分布的随机数

# 使用hist函数绘制直方图
hist(data, 
     breaks = 10,  # 指定直方图的条形数
     col = "lightblue",  # 设置条形的颜色
     border = "pink",  # 设置条形边框的颜色
     main = "Histogram of Randomly Generated Data",  # 添加主标题
     xlab = "Data Values",  # 添加x轴标签
     ylab = "Frequency")  # 添加y轴标签

# 安装和加载ggplot2包
if(!require(ggplot2)) install.packages("ggplot2")
library(ggplot2)

# 使用同样的示例数据
data_df <- data.frame(Value = data)  # 将数据转换为数据框

# 使用ggplot2绘制直方图
ggplot(data_df, aes(x = Value)) + 
  geom_histogram(bins = 10,  # 指定条形数
                 fill = "lightblue",  # 设置填充颜色
                 color = "pink") +  # 设置边框颜色
  labs(title = "Histogram of Randomly Generated Data",
       x = "Data Values",
       y = "Frequency") +
  theme_minimal()  # 使用简洁主题

运行结果：

不错不错，还给了两种方法。

饼状图

# 创建一些示例数据
values <- c(10, 15, 20, 35, 20)  # 数值
labels <- c("A", "B", "C", "D", "E")  # 对应的标签

# 绘制饼状图
pie(values, labels = labels, 
    main = "Pie Chart Example",  # 添加主标题
    col = rainbow(length(values)))  # 使用彩虹色为每个部分上色

美化一下：

# 创建一些示例数据
values <- c(10, 15, 20, 35, 20)  # 数值
labels <- c("A", "B", "C", "D", "E")  # 对应的标签
colors <- c("#FF9999", "#66CC99", "#9999FF", "#FFCC66", "#66CCCC")  # 自定义颜色

# 绘制美化后的饼状图
pie(values, labels = labels,
    main = "Enhanced Pie Chart Example",
    col = colors,  # 应用自定义颜色
    init.angle = 140,  # 起始角度
    radius = 0.8,  # 饼图半径，使其不是完全填满画布
    border = "white",  # 设置分割线为白色
    clockwise = TRUE)  # 顺时针绘制

# 添加图例
legend("topright",  # 图例位置
       legend = labels,  # 显示标签
       fill = colors,  # 对应颜色
       title = "Legend")  # 图例标题

看着还行~

下一期让Chatgpt做一下复杂的图，比如气泡图降维图和热图。

哦对了，如果你也想用AI辅助写代码写论文，可以看看这篇教程，五分钟就能成功用上：

【保姆级教程】国内ChatGTP升级4.0第N次失败！虚拟信用卡救大命！如何充值升级Chatgpt?【保姆级教程】国内ChatGTP升级4.0第N次失败！虚拟信用卡救大命！如何充值升级Chatgpt?旨在帮助想要使用Chatgpt提高工作效率的人群快速获取Chatgpt账号以及快速升级ChatGPT4https://mp.weixin.qq.com/s/zbTplfranuPiEHhOQv6vrQ