R语言操作练习2

  1. 加载tidyr包,探索table1,table2,table3,table4a, table4b维度和结构

  2. 将table4a进行宽转长操作,列名为country,year,population

  3. 基于题2,以country为横坐标,population为纵坐标,fill=year,采用dodge形式作柱状图,颜色为#022a99和#fbcd08

  4. 基于题2,以country为横坐标,population为纵坐标,fill=year,作堆叠柱状图,颜色为#022a99和#fbcd08

  5. 基于题2,以country为横坐标,population为纵坐标,year作为分面对象,作分面柱状图,主题用theme_bw(),采用Pastel3填充country

  6. 基于题2,以country为横坐标,population为纵坐标,year作为分面对象,作分面柱状图,主题采用theme()

  7. 绘制参考范例中的和弦图

    https://jokergoo.github.io/circlize_book/book/the-chorddiagram-function.html#scaling

  8. 绘制参考范例中的峰峦图

    https://r-graph-gallery.com/294-basic-ridgeline-plot.html

r 复制代码
install.packages("tidyr")
install.packages("ggplot2")
install.packages("dplyr")
install.packages("RColorBrewer")
install.packages("circlize")
install.packages("ggridges")
library(ggridges)
library(tidyr)
library(ggplot2)
library(dplyr)
library(RColorBrewer)
library(circlize)
str(table1)
str(table2)
str(table3)
str(table4a)
str(table4b)
table4a_long <- table4a %>%
  pivot_longer(cols = -country, names_to = "year", values_to = "population")
ggplot(table4a_long, aes(x = country, y = population, fill = year)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_fill_manual(values = c("#022a99", "#fbcd08")) +
  theme_minimal()
ggplot(table4a_long, aes(x = country, y = population, fill = year)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("#022a99", "#fbcd08")) +
  theme_minimal()
ggplot(table4a_long, aes(x = country, y = population, fill = country)) +
  geom_bar(stat = "identity") +
  scale_fill_brewer(palette = "Pastel3") +
  facet_wrap(~year, scales = "free_y") +
  theme_bw()
ggplot(table4a_long, aes(x = country, y = population, fill = country)) +
  geom_bar(stat = "identity") +
  facet_wrap(~year, scales = "free_y") +
  theme()
chord_data <- data.frame(
  from = c("A", "B", "C"),
  to = c("D", "E", "F"),
  value = c(10, 20, 30)
)
chordDiagram(chord_data, transparency = 0.5)
ridge_data <- data.frame(
  country = rep(c("Country1", "Country2"), each = 100),
  year = rep(rep(2000:2001, each = 50), times = 2),
  population = rnorm(200, mean = 100, sd = 20)
)
ridge_data$year <- as.factor(ridge_data$year)
ggplot(ridge_data, aes(x = population, y = year, fill = country)) +
  geom_density_ridges(alpha = 0.7, position = "identity", scale = 0.9) +
  scale_fill_manual(values = c("#022a99", "#fbcd08")) +
  labs(title = "Population Distribution by Country and Year",
       x = "Population", y = "Year") +
  theme_ridges()
相关推荐
czhc11400756632 天前
LINUX913 shell:set ip [lindex $argv 0],\r,send_user,spawn ssh root@ip “cat “
tcp/ip·r语言·ssh
zhangfeng11332 天前
win7 R 4.4.0和RStudio1.25的版本兼容性以及系统区域设置有关 导致Plots绘图面板被禁用,但是单独页面显示
开发语言·人工智能·r语言·生物信息
zhangfeng11332 天前
在 R 语言里,`$` 只有一个作用 按名字提取“列表型”对象里的单个元素 对象 $ 名字
开发语言·windows·r语言
高-老师2 天前
R语言生物群落(生态)数据统计分析与绘图实践技术应用
开发语言·r语言·生物群落
WangYan20223 天前
R语言:数据读取与重构、试验设计(RCB/BIB/正交/析因)、ggplot2高级绘图与统计检验(t检验/方差分析/PCA/聚类)
r语言·ggplot2·dplyr
zhangfeng11333 天前
错误于make.names(vnames, unique = TRUE): invalid multibyte string 9 使用 R 语言进行数据处理时
开发语言·r语言·生物信息
zhangfeng11333 天前
R geo 然后读取数据的时候 make.names(vnames, unique = TRUE): invalid multibyte string 9
开发语言·chrome·r语言·生物信息
梦想的初衷~4 天前
R语言生物群落数据分析全流程:从数据清洗到混合模型与结构方程
机器学习·r语言·生态·环境
没有梦想的咸鱼185-1037-16636 天前
基于R语言机器学习方法在生态经济学领域中的实践技术应用
开发语言·机器学习·数据分析·r语言
zhangfeng11336 天前
R 语法高亮为什么没有,是需要安装专用的编辑软件,R语言自带的R-gui 功能还是比较简单
开发语言·r语言