Question

我具有以下格式的可用数据，而不是添加编号。手动，我想直接从csv文件读取它们。请检查“总点击次数” **和“版本号打开” **部分。预先感谢

我具有.csv格式的数据：

Total Clicks                
Section   Version A  Version B  Version C   Version D  
Section1    1,999   2,116              2,307    2,568
Section2    3,450   1,781              3,416    1,399
Section3    1,773     915              1,744      644
Section4        0   2,255                  0    1,432
Section5      588     573                721      235
Main email  7,222   7,067              7,467    6,043
Total email 7,810   7,640              8,188    6,278

Version # Opens
A    9,073
B    9,150
C    9,215
D    9,153

目前，我正在以以下格式手动分配数据：

S1_Click_A=1,999 ####(section 1, email A)
S1_Click_B=2,116 ## (section 1, email B)
S1_Click_C=2,307
S1_Click_D=2,568
S2_Click_A=3,450 
S2_Click_B=1,781 
.
.
.
S5_Click_C=721 
S5_Click_D=235
MainBody_Click_A=7,222
MainBody_Click_B=7,067
.
.
TotalEmail_Click_C=8,188
TotalEmail_Click_D=6,278

我希望有一个代码可以帮助直接从文件中选择数据，而不是手动进行操作。

Answer 1

我会说你可以做这样的事情：

library(tidyverse)
wide_file <- read_csv("you_file.csv")

# Gather to make it long

long_file <- wide_file %>%
    gather(version, value, -Section)

# Now make your new column using unite (basically pastes columns together)

long_file_2 <- long_file %>%
    unite("new_col", id:version, sep = "_)

这应该为您提供您指定的数据格式

直接从csv读取和输入数据

1 个答案: