Rの1つのCSVファイルから2種類のデータフレームを読み込む方法は？

Question

として、我々は1つのCSVファイルでこのような2つのデータフレームを持っていると仮定します、助けてください私の実際の要件は、2つの異なるデータフレームの変数にこれら2つのデータフレームを読むことです

Name C1 C2 C3 C4 

aa 1 2 3 4 

bb 3 4 6 5 

cc 10 2 5 6 

TT 44 2 2 6 

# 

Name C1 C2 C3 C4 

aa 1 2 3 4 

bb 3 4 6 5 

cc 10 2 5 6 

TT 44 2 3 6 

、私はそれに応じてこれらの2つのデータフレームとプロットを分析したいですこの点で私。

Answer 1

はここ

writeLines(
con = tf <- tempfile(fileext = ".csv"), 
text = "Name C1 C2 C3 C4 
aa 1 2 3 4 
bb 3 4 6 5 
cc 10 2 5 6 
TT 44 2 2 6 
# 
Name C1 C2 C3 C4 
aa 1 2 3 4 
bb 3 4 6 5 
cc 10 2 5 6 
TT 44 2 3 6") 

txt <- readLines(tf) 
sep <- grep("^#", txt)[1] 
df1 <- read.table(text = txt[1:(sep-1)], header = TRUE) 
df1$part <- "1" 
df2 <- read.table(text = txt[(sep+1):length(txt)], header = TRUE) 
df2$part <- "2" 

library(tidyr) 
library(dplyr) 
library(ggplot2) 
bind_rows(df1, df2) %>% 
    gather(var, val, -part, -Name) %>% 
    ggplot(aes(x = Name, y = val, fill = var)) + 
    geom_col() + 
    facet_wrap(~part)