從文件解析條件並將它們應用到數據框中

Question

我請求幫助解決我最近遇到的一個大問題。我得到這樣

df <- data.frame(x=c("c1","c2","c3"),A=c(0,1,-1),B=c(2,0,1),C=c(0,-1,-1)) 

數據幀和文件「tmp.csv」符合下列條件

A>0 
B>1 
C<0 

我需要加載這些情況，分析它們和運用這些數據幀。所以，對於A我期望c1和c2。對於B，c1以及對於C，c2，c3。

我一直在試圖找到類似的東西，但我沒有。也許here有類似的問題，但我沒有得到解決方案。我還發現功能

解析

，它可能會做解析，但即使閱讀文檔，我沒有得到它做什麼...

我真的不知道從開始（解析並理解提示條件）。任何幫助？

編輯：我在這裏添加另一個非常接近現在的請求。如果我需要檢查哪個「cx」滿足所有條件（這裏只有A和B，讓我們丟棄C），而且每次都不要使用一個，我應該怎麼做？

我想用簡單的

lines <- readLines("tmp.csv") 
expr <- lapply(lines, function(t) parse(text=t)[[1]]) 
do.call("subset", list(quote(df), expr)) 

，但我得到的錯誤「‘子集’必須是邏輯」。

Answer 1

假設您已經使用readLines讀取條件文件。在這裏，我讀從textConnection，而不是寫一個文件

tt<-textConnection("A>0 
B>1 
C<0") 
lines <- readLines(tt) 
# lines <- readLines("tmp.csv") in your case 

現在我們可以分析這些表述成一個列表與lapply和parse()

expr <- lapply(lines, function(t) parse(text=t)[[1]]) 

現在我們可以將每一種的data.frame與lapply，do.call和subset

df <- data.frame(x=c("c1","c2","c3"),A=c(0,1,-1),B=c(2,0,1),C=c(0,-1,-1)) 
lapply(expr, function(x) do.call("subset", list(quote(df), x))) 

# [[1]] 
# x A B C 
# 2 c2 1 0 -1 
# 
# [[2]] 
# x A B C 
# 1 c1 0 2 0 
# 
# [[3]] 
# x A B C 
# 2 c2 1 0 -1 
# 3 c3 -1 1 -1