動態R數據框 - 更改是/否對1/0的響應

Question

我使用API​​調用LimeSurvey將數據導入我正在處理的Shiny R應用程序。然後，我操縱數據框，以便只有某個人隨着時間的推移才能做出迴應。數據幀可以是這樣的：

Appetite <- c("No","Yes","No","No","No","No","No","No","No") 
Dental.Health <- c("No","Yes","No","No","No","No","Yes","Yes","No") 
Dry.mouth <- c("No","Yes","Yes","Yes","Yes","No","Yes","Yes","No") 
Mouth.opening <- c("No","No","Yes","Yes","Yes","No","Yes","Yes","No") 
Pain.elsewhere <- c("No","Yes","No","No","No","No","No","No","No") 
Sleeping <- c("No","No","No","No","No","Yes","No","No","No") 
Sore.mouth <- c("No","No","Yes","Yes","No","No","No","No","No") 
Swallowing <- c("No","No","No","No","Yes","No","No","No","No") 
Cancer.treatment <- c("No","No","Yes","Yes","No","Yes","No","No","No") 
Support.for.my.family <- c("No","No","Yes","Yes","No","No","No","No","No") 
Fear.of.cancer.coming.back <- c("No","No","Yes","Yes","No","No","Yes","No","No") 
Intimacy <- c("Yes","No","No","No","No","No","No","No","No") 
Dentist <- c("No","Yes","No","No","No","No","No","No","No") 
Dietician <- c("No","No","Yes","Yes","No","No","No","No","No") 
Date.submitted <- c("2002-07-25 00:00:00", 
       "2002-09-05 00:00:00", 
       "2003-01-09 00:00:00", 
       "2003-01-09 00:00:00", 
       "2003-07-17 00:00:00", 
       "2003-11-06 00:00:00", 
       "2004-12-17 00:00:00", 
       "2005-06-03 00:00:00", 
       "2005-12-17 00:00:00") 

theDataFrame <- data.frame(Date.submitted, 
          Appetite, 
          Dental.Health, 
          Dry.mouth, 
          Mouth.opening, 
          Pain.elsewhere, 
          Sleeping, 
          Sore.mouth, 
          Swallowing, 
          Cancer.treatment, 
          Support.for.my.family, 
          Fear.of.cancer.coming.back, 
          Intimacy, 
          Dentist, 
          Dietician) 

需要明確的是，這數據幀可以包含更多（或更少）比上面的例子更多（或更少）的變量的觀察。

我的目標是做一個動態直方圖，看起來像下面這樣：

library(dplyr) 
library(ggplot2) 
library(tidyr) 

df <- data.frame(timeline = Sys.Date() - 1:10, 
       q3 = sample(c("Yes", "No"), size = 10, replace = T), 
       q4 = sample(c("Yes", "No"), size = 10, replace = T), 
       q5 = sample(c("Yes", "No"), size = 10, replace = T), 
       q6 = sample(c("Yes", "No"), size = 10, replace = T), 
       q7 = sample(c("Yes", "No"), size = 10, replace = T), 
       q8 = sample(c("Yes", "No"), size = 10, replace = T), 

       stringsAsFactors = F) %>% 
    mutate(q3 = ifelse(q3 == "Yes", 1, 0), 
      q4 = ifelse(q4 == "Yes", 1, 0), 
      q5 = ifelse(q5 == "Yes", 1, 0), 
      q6 = ifelse(q6 == "Yes", 1, 0), 
      q7 = ifelse(q7 == "Yes", 1, 0), 
      q8 = ifelse(q8 == "Yes", 1, 0) 

    ) %>% 
    gather(key = question, value = value, q3, q4, q5, q6, q7, q8) 

g <- ggplot(df, aes(x = timeline, y = value, fill = question)) + 
    geom_bar(stat = "identity") 

g 

我想我會需要使用庫（lubridate）的時間表，因爲整個數據幀是純文本。我處理''。列名如下：

myColNames <- colnames(theDataFrame) 

myNames <- myColNames 

myNames <- gsub("^X\\.\\.", "", myNames) 
myNames <- gsub("\\.", " ", myNames) 
names(theDataFrame) <- myNames # items in myChoices get "labels" from myNames 

但是最具挑戰性的方面是讓它動態工作。該數據集將只包含Date.submitted和（x）額外列的數目將只是「是」或「否」

我希望我已經提供了足夠的信息（這是我在Stack Exchange上的第一個問題！）

Answer 1

我們可以通過base R

theDataFrame[-1] <- +(theDataFrame[-1]=="Yes") 

或用lapply更新時，該數據集是大

theDataFrame[-1] <- lapply(theDataFrame[-1], function(x) as.integer(x=="Yes")) 

Answer 2

你可以人所以使用dplyr::mutate_all和purrr::map

注：我以前stringsAsFactors = F在theDataFrame

theDataFrame <- data.frame(Date.submitted, 
          Appetite, 
          Dental.Health, 
          Dry.mouth, 
          Mouth.opening, 
          Pain.elsewhere, 
          Sleeping, 
          Sore.mouth, 
          Swallowing, 
          Cancer.treatment, 
          Support.for.my.family, 
          Fear.of.cancer.coming.back, 
          Intimacy, 
          Dentist, 
          Dietician, stringsAsFactors = F) 

- 創建一個函數來完成你想要的轉換，例如：

ConvertYesNo<- function(x){ 
    if(x=="Yes") y <- as.integer(1) 
    else if (x=="No") y <- as.integer(0) 
    else y <- x 

    return(y) 
} 

- 使用它mutate_all，其中考慮所有列或選擇使用mutate_at的列。而map的功能如下：

theDataFramex <- theDataFrame %>% 
    mutate_all(funs(map_chr(.,ConvertYesNo))) 

> head(theDataFramex,3) 
     Date.submitted Appetite Dental.Health Dry.mouth Mouth.opening Pain.elsewhere Sleeping 
1 2002-07-25 00:00:00  0    0   0    0    0  0 
2 2002-09-05 00:00:00  1    1   1    0    1  0 
3 2003-01-09 00:00:00  0    0   1    1    0  0 
    Sore.mouth Swallowing Cancer.treatment Support.for.my.family Fear.of.cancer.coming.back 
1   0   0    0      0       0 
2   0   0    0      0       0 
3   1   0    1      1       1 
    Intimacy Dentist Dietician 
1  1  0   0 
2  0  1   0 
3  0  0   1