Чтение и ввод данных напрямую из CSV

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 = "_)

Это должно дать вам формат данных, который вы указали