如何在R中创建可视化数据表以快速直观地筛选数据
我有以下txt格式的数据集:如何在R中创建可视化数据表以快速直观地筛选数据,r,R,我有以下txt格式的数据集: Column1 Column2 Column3 etc A1 5 7 A2 4 2 .. A12 5 4 B1 2 9 B2 2 8 .. B12 11 5 .. H1 0 3 H2 4 54 .. H12 4 31 我想创建一个可视化数据表,
Column1 Column2 Column3 etc
A1 5 7
A2 4 2
..
A12 5 4
B1 2 9
B2 2 8
..
B12 11 5
..
H1 0 3
H2 4 54
..
H12 4 31
我想创建一个可视化数据表,其中a到H行由12列组成,每个单元格填充相应的值(第2列或第3列的值),并根据其值使用渐变色(如热图)。最好的方法是什么 以下是一种使用
dplyr
和tidyr
进行数据争用和gt
进行可视化的方法:
请注意,“”Column2”是在`
values\u中指定的,但是您可以将其更改为可视化其他列
library(dplyr)
library(tidyr)
library(dt)
library(scales)
data %>%
separate(1, into = c("Column1","Name"),
sep = "(?<=[A-Z])(?=\\d)") %>%
pivot_wider(id_cols = 1, names_from = "Name",
values_from = "Column2") %>%
gt() %>%
data_color(columns = 2:13,
colors = col_numeric(palette = c("green","yellow","red"),
domain = c(10,1000)))
库(dplyr)
图书馆(tidyr)
图书馆(dt)
图书馆(比例尺)
数据%>%
将(1)分隔为=c(“第1列”、“名称”),
sep=“(?以下是一种使用dplyr
和tidyr
进行数据争用和gt
进行可视化的方法:
请注意,“”Column2”是在`
values\u中指定的,但是您可以将其更改为可视化其他列
library(dplyr)
library(tidyr)
library(dt)
library(scales)
data %>%
separate(1, into = c("Column1","Name"),
sep = "(?<=[A-Z])(?=\\d)") %>%
pivot_wider(id_cols = 1, names_from = "Name",
values_from = "Column2") %>%
gt() %>%
data_color(columns = 2:13,
colors = col_numeric(palette = c("green","yellow","red"),
domain = c(10,1000)))
库(dplyr)
图书馆(tidyr)
图书馆(dt)
图书馆(比例尺)
数据%>%
将(1)分隔为=c(“第1列”、“名称”),
九月=”(?太好了!这正是我要找的!我的问题的一个复杂性-有时这些文本文件会缺少某些单元格,例如,一个文件可能只包含包含A2-->H2和A3--H3列值的单元格。在这种情况下,空单元格id就像显示空/非彩色单元格一样。使用此代码,我得到:错误:给定的所有列或行索引必须存在于数据\u tbl
中。我想它在寻找一个完全填充的表,其中所有值都存在于A1--H12中。是否可以将其修改为仍然显示“未完成”/partial tables?非常感谢!是的,可以很容易地修改此方法,以将NA
替换为0
。例如,如果您使用dput(数据)提供数据样本
作为对您原始问题的编辑,我可以提供帮助。太好了!这正是我要找的!我的问题的一个复杂问题-有时这些文本文件会缺少某些单元格,例如,一个文件可能只有这些单元格包含A2-->H2和A3--H3列值。在这种情况下,对于空单元格id就像显示空单元格一样/非彩色单元格。使用此代码,我得到:错误:给定的所有列或行索引必须存在于数据中。\u tbl
。我想它是在寻找一个包含所有值的完全填充表A1--H12。是否可以修改为仍然显示“不完整”/partial tables?非常感谢!是的,这种方法可以很容易地修改,例如用0
替换NA
。如果您提供一个带有dput(数据)
的数据样本,作为对原始问题的编辑,我可以提供帮助。