如何从R中的单个CSV文件读取2个不同的数据帧？

Question

Suppose we have 2 dataframes like this in single CSV file as:

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

My actual requirement is to read these 2 dataframes in 2 different dataframe variables, I want to analyze these 2 dataframes and plot accordingly, please help me in this regard.

Answer 1

Here's an example

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)