重新安排每組

我有R的工作表，我有這樣的數據：重新安排每組

data <- structure(list(Col1 = 1:9, Col2 = structure(c(2L, 2L, 2L, 1L, 
3L, 3L, 3L, 3L, 3L), .Label = c("Administrative ", "National", 
"Regional"), class = "factor"), Col3 = structure(c(NA, 3L, 4L, 
NA, 2L, 3L, 1L, 4L, 3L), .Label = c("bike", "boat", "car", "truck" 
), class = "factor"), Col4 = c(56L, 65L, 58L, 62L, 24L, 25L, 
120L, 89L, 468L), X = c(NA, NA, NA, NA, NA, NA, NA, NA, NA), 
    X.1 = c(NA, NA, NA, NA, NA, NA, NA, NA, NA)), .Names = c("Col1", 
"Col2", "Col3", "Col4", "X", "X.1"), class = "data.frame", row.names = c(NA, 
-9L))

我想重新安排一下，看看有什麼可以或NOR。輸出看起來像這樣：

result <- structure(list(Col1 = c(1L, 4L, 5L), Col2 = structure(c(2L, 1L, 
3L), .Label = c("Administrative ", "National", "Regional"), class = "factor"), 
    car = c(1L, 0L, 1L), truck = c(1L, 0L, 1L), boat = c(0L, 
    0L, 1L), bike = c(0L, 0L, 1L)), .Names = c("Col1", "Col2", 
"car", "truck", "boat", "bike"), class = "data.frame", row.names = c(NA, 
-3L))

我已經試過聚合，但我仍然遠離結果。幫助將是

t <- aggregate(data$Col2, by=list(data$Col3), c)

歡迎來到幫助！

來源

2017-09-27 Floni

還請加入您正在使用的語言，使得它更容易找到幫助。 –

已編輯！這是在主題標題:) – Floni

我們可以使用dcast從data.table與length爲fun.aggregate

library(data.table) 
dcast(setDT(data), Col2~ Col3, length)[, 1:5, with = FALSE]

來源

2017-09-27 07:04:51 akrun

好像是perfecly工作，謝謝！ – Floni

這裏是一個dplyr解決方案，如果你有興趣，雖然akrun的解決方案似乎更簡潔：

library(tidyverse) 

result <- data %>% 
    group_by(Col2, Col3) %>% 
    summarise(tot = sum(Col4)) %>% 
    mutate(bool = if_else(tot > 0, 1, 0)) %>% 
    select(Col2, Col3, bool) %>% 
    spread(key = Col3, value = bool, fill = 0) %>% 
    select(-`<NA>`)

來源

2017-09-27 07:13:34 User632716

下面是使用一個想法基R，

#convert to character 
data[2:3] <- lapply(data[2:3], as.character) 

#get unique elements to tabulate 
i1 <- unique(data$Col3) 
i1 <- i1[!is.na(i1)] 


setNames(data.frame(do.call(rbind, lapply(split(data$Col3, data$Col2), function(i) 
              as.integer(match(i1, i, nomatch = 0) > 0)))), i1)

其給出，

   car truck boat bike 
Administrative 0  0 0 0 
National   1  1 0 0 
Regional   1  1 1 1

來源

2017-09-27 07:20:09 Sotos

下面是使用table和一些脅迫另一個基R法。

(table(data$Col2, data$Col3) > 0) + 0L 

        bike boat car truck 
    Administrative  0 0 0  0 
    National   0 0 1  1 
    Regional   1 1 1  1

table計數實例，爲NAs返回0。然後，我們強制邏輯與> 0到值大於1，後回落至整數，+ 0L。

來源

2017-09-27 12:21:31 lmo

重新安排每組

回答

相關問題