R Notebook

# Checks if RCurl is installed. If not, installs it.
if (sum(installed.packages()[, 1] == "RCurl") < 1) install.packages("RCurl")
suppressMessages(suppressWarnings(library(RCurl)))
if (sum(installed.packages()[, 1] == "ggplot2") < 1) install.packages("ggplot2")
library(ggplot2)
if (sum(installed.packages()[, 1] == "magrittr") < 1) install.packages("magrittr")
library(magrittr)
if (sum(installed.packages()[, 1] == "dplyr") < 1) install.packages("dplyr")
suppressMessages(suppressWarnings(library(dplyr)))
if (sum(installed.packages()[, 1] == "devtools") < 1) install.packages("devtools")
library(devtools)
# Install ggthemr
if (sum(installed.packages()[, 1] == "ggthemr") < 1) devtools::install_github('cttobin/ggthemr')
## Theme 
library('ggthemr')
suppressWarnings(ggthemr('grass'))

# Download CSV
filename <- "https://docs.google.com/spreadsheets/d/e/2PACX-1vQ4RIK8_J5GKNi0dfY8HqGABoC8HfVnImLG0JBLC3nwgD7NfOv-jAsInWICbhIcQ1HiYkq5YkVlcEIl/pub?gid=968676818&single=true&output=csv"
txt = tryCatch(getURL(filename, .encoding='UTF-8'), 
               error = function(e) {
  getURL(filename, .encoding='UTF-8', ssl.verifypeer = FALSE)
})
tc = textConnection(txt)  # Opens a connection.
survey.results <- read.csv(tc, header = T, stringsAsFactors = TRUE, na.strings = "")
close(tc)  # Closes the connection.
rm(txt, tc, filename)  # Cleans up the workspace.

統計資料

本次問卷回收 482 份，男性佔 67.8%、女性佔 32.2%.

survey.results %>%
  ggplot(aes(x=factor(X1.性別), fill=factor(X2.年齡))) +
  geom_bar(stat = "count") +
  geom_text(stat='count', aes(label=..count.., x=factor(X1.性別)), position = position_stack(vjust = 0.5), size=2.5) +
  scale_y_continuous(name="人數", breaks=waiver(), position = "left") +
  scale_x_discrete(name="性別") +
  scale_fill_brewer(name="年齡", palette="YlOrBr")