purrr

    3熱度

    1回答

    我想創建一個雙嵌套數據結構,其中c嵌套在一個嵌套在id中的嵌套數據結構中。 library(tidyverse) m<-data_frame(id=c(100,101,100,101,100,101,100,101), a=c("A","A","B","B","A","A","D","D"), c=c(1:8)) m2 <- m %>% group_by(id)

    0熱度

    1回答

    我有一個寬文件(132列寬)的500Mb文件,其中六個列是變量,描述一個實例在時間1到16(96列),其中36個是非變。我想改變數據結構,以便我爲每個這些實例都有一個列表列,併爲不變的信息提供一個單獨的列。時間實例的變量名稱由以「1」結尾的名稱唯一給出。 library(tidyverse) a<-data_frame(id=c("A","B","C"), const82=c("

    0熱度

    1回答

    讓我的腳溼透嗚嗚聲。 我正在評估beta分佈的參數的不同組合,我試圖傳遞x值的向量和分佈參數。 請參見下面的代碼: library(tidyr) library(purrr) library(dplyr) x <- seq(0.01, 0.99, 0.01) alpha <- c(0.1, 0.5, 1:5, 10) beta <- c(0.5, 1, 2, 5) df <- e

    1熱度

    1回答

    我有一個數據框,其中包含調查響應,每行代表不同的人。一列 - 「文本」 - 是一個開放式的文本問題。我想用Tidytext :: unnest_tokens讓我通過每行做文本分析,包括景氣指數,字數等 下面是這個例子中,簡單的數據框: Satisfaction<-c ("Satisfied","Satisfied","Dissatisfied","Satisfied","Dissatisfied"

    0熱度

    1回答

    我想創建一個dplyr::bind_rows suped式版本,避免Unequal factor levels: coercing to character警告,當係數列存在於我們試圖結合DFS(也可能產生非要素列)。這裏有一個例子: df1 <- dplyr::data_frame(age = 1:3, gender = factor(c("male", "female", "female"))

    0熱度

    1回答

    這可能是我的一個基本誤解,但我認爲purrr::safely()捕獲所有錯誤並從未失敗。然而: > purrr::safely(httr::GET('http://revolution-news.com/')) Error in curl::curl_fetch_memory(url, handle = handle) : Couldn't resolve host name

    2熱度

    1回答

    library(tidyverse) data(mtcars) mtcars <- rownames_to_column(mtcars,var = "car") mtcars$id <- c(1:length(mtcars$car)) mtcars$make <- map_chr(mtcars$car,~strsplit(.x," ")[[1]][1]) mt2 <- mtcars %

    1熱度

    1回答

    library(tidyverse) data(mtcars) mtcars <- rownames_to_column(mtcars,var = "car") mtcars$make <- map_chr(mtcars$car,~strsplit(.x," ")[[1]][1]) mt2 <- mtcars %>% select(1:8,make) %>% nest(-make,.ke

    1熱度

    1回答

    我想創建一個小函數,將在R中設置一個工作環境 最後它只是一個函數,我可以指定我想要設置的文件夾結構 希望以此爲機會學習purrr 下面是我的代碼已經在項目設置,以便文件路徑是與生俱來的,但我顯然不使用它正確 # Setup Project Folders library('purrr') my_folders <- data.frame(folder = c('scripts','sql','

    1熱度

    2回答

    我有這樣 df <- data.frame(tiny = rep(letters[1:3], 20), block = rnorm(60), tray = runif(60, min=0.4, max=2), indent = sample(0.5:2.0, 60, replace = TRUE)) 數據幀嵌套在我這個數據幀 nm <- df%>%