re_connect_survey/data/.Rhistory
rehughes07 0b15014181 Data figuring
Making Q3 into its own file in order to see how that helps with making charts and graphs. TEST
2021-10-22 14:24:57 +01:00

65 lines
2.1 KiB
R

connect_data = read.csv("connectDATA.csv")
connect_data = read.csv("connectDATA.csv")
head(connect_data)
View(connect_data)
table(connect_data$Q25)
Q25_frequencies = table(connect_data$Q25)
Q25_frequencies = table(connect_data$Q25)
Q26_freq = table(connect_data$Q26)
Q25_frequencies = table(connect_data$Q25)
Q26_freq = table(connect_data$Q26)
Q26_freq
connect_data = read.csv("connectDATA.csv")
head(connect_data)
connect_data = read.csv("connectDATA.csv")
connect_data = read.csv("connectDATA.csv")
view(connect_data)
View(connect_data)
Q25_frequencies = table(connect_data$Q25)
Q26_freq = table(connect_data$Q26)
Q26_freq
Q25_frequencies = table(connect_data$Q25)
Q_25_frequencies
Q26_freq = table(connect_data$Q26)
Q26_freq
Q25_frequencies = table(connect_data$Q25)
Q_25frequencies
Q26_freq = table(connect_data$Q26)
Q26_freq
Q_25frequencies
Q25_frequencies = table(connect_data$Q25)
Q25_25frequencies
Q25_frequencies
test3 = as.factor(connect_data$Q3, levels = c(1, 2, 3, 4, 5), labels = c("Worldviews", "Religion", "Theology", "Ethics", "Philosophy"))
pie(connect_data$Q25, labels = names(connect_data$Q25))
pie(Q25_frequencies, labels = names(connect_data$Q25))
pie(Q25_frequencies, labels = names(c("maybe", "yes", "no")))
pie(Q25_frequencies, labels = names(connect_data$Q25))
names(Q25_frequencies = c("Maybe", "No", "Yes"))
pie(Q25_frequencies, labels = c("Maybe", "No", "Yes"))
pie(Q26_freq)
Q25_frequencies = table(connect_data$Q25)
Q25_frequencies
Q26_freq = table(connect_data$Q26)
Q26_freq
Q3_freq = table(connect_data$Q3)
Q25_frequencies = table(connect_data$Q25)
Q25_frequencies
Q26_freq = table(connect_data$Q26)
Q26_freq
Q3_freq = table(connect_data$Q3)
Q3_freq
pie(Q3_freq)
knitr::opts_chunk$set(echo = TRUE)
pie(Q25_frequencies, labels = c("Maybe", "No", "Yes"))
cor(Q_20, Q_22, data=connect_data)
cor(connect_data$Q_20, connect_dataQ_22)
cor(connect_data$Q_20, connect_data$Q_22)
Q3_data <- read.csv("Q3.csv")
setwd("~/Documents/GitHub/re_connect_survey/data")
Q3_data <- read.csv("Q3.csv")
read.csv("Q3.csv)
data=read.csv("Q3.csv)
Q3_data <- read.csv("Q3.csv")
Q3_data <- read.csv("Q3.csv")