如何从r数据帧中提取细胞，并添加为新行

我在为r的下列数据帧如何从r数据帧中提取细胞，并添加为新行

Names  X_1   X_2   X_3   X_4 
Name   Sagar II Booster 
Location  India  No   Discharge  Open 
Depth  19.5  start   End 
DOC   3.2   FPL   64 
Qunatity  234   SPL   50

现在我想提取某些细胞并在下一单元格及其对应的值。我想要的数据帧将

Names  Values 
Name   Sagar II 
Location  India 
Discharge Open 
Depth  19.5 
DOC   3.2 
FPL   64 
SPL   50

我该怎么办呢r中？

来源

2017-09-25 Neil

提取的名字应该在数据框的文本完全匹配。 'C（名称，位置，排放，深度，DOC，FPL，SPL）' – Neil

所以给定列可以同时拥有_key_和_value_？ – useR

鉴于列将有'key'和列旁边将有'value'请参考我想要的数据帧 – Neil

一个从基础解决方案R.

点

# Create example data frame 
dt <- read.table(text = "Names  X_1   X_2   X_3   X_4 
Name   Sagar II Booster 
       Location  India  No   Discharge  Open 
       Depth  19.5  start   End 
       DOC   3.2   FPL   64 
       Qunatity  234   SPL   50", 
       stringsAsFactors = FALSE, header = TRUE, fill = TRUE) 

# A list of target keys 
target_key <- c("Name", "Location", "Discharge", "Depth", "DOC", "FPL", "SPL") 

# A function to extract value based on key and create a new data frame 
extract_fun <- function(key, df = dt){ 
    Row <- which(apply(dt, 1, function(x) key %in% x)) 
    Col <- which(apply(dt, 2, function(x) key %in% x)) 
    df2 <- data.frame(Names = key, Values = df[Row, Col + 1], 
        stringsAsFactors = FALSE) 
    df2$Values <- as.character(df2$Values) 
    return(df2) 
} 

# Apply the extract_fun 
ext_list <- lapply(target_key, extract_fun) 

# Combine all data frame 
dt_final <- do.call(rbind, ext_list) 

dt_final 
     Names Values 
1  Name Sagar 
2 Location India 
3 Discharge Open 
4  Depth 19.5 
5  DOC 3.2 
6  FPL  64 
7  SPL  50

来源

2017-09-25 14:32:58 www

可能不是最有效的，但是适用于你的例子：

library(dplyr) 

key_value = function(extraction){ 
    temp = matrix(NA, nrow = length(extraction), ncol = 2) 
    temp[,1] = extraction 

    for(ii in 1:nrow(temp)){ 
    index = df %>% 
     as.matrix %>% 
     {which(. == extraction[ii], arr.ind = TRUE)} 

    temp[ii, 2] = index %>% {df[.[1], .[2]+1]} 
    } 

    return(data.frame(Names = temp[,1], Values = temp[,2])) 
}

结果：

> vec = c("Name", "Location", "Discharge", "Depth", "DOC", "FPL", "SPL") 

> key_value(vec) 
     Names Values 
1  Name SagarII 
2 Location India 
3 Discharge Open 
4  Depth 19.5 
5  DOC  3.2 
6  FPL  64 
7  SPL  50

数据：

df = read.table(text = "Names  X_1   X_2   X_3   X_4 
       Name   SagarII Booster NA NA 
       Location  India  No   Discharge  Open 
       Depth  19.5  start   End NA 
       DOC   3.2   FPL   64 NA 
       Qunatity  234   SPL   50 NA", header = TRUE, stringsAsFactors = FALSE)

来源

2017-09-25 14:28:55 useR

如何从r数据帧中提取细胞，并添加为新行

回答

相关问题