kidwellj/re_connect_survey
1
0
Fork 0
mirror of https://github.com/kidwellj/re_connect_survey.git synced 2025-06-14 18:44:09 +00:00
Code Issues Projects Releases Packages Wiki Activity

Pie Charts and More Data Finagling

Browse source 
Figuring how to put frequencies of multiple response data into a clean format, then creating rough code for a simple pie chart (to be made pretty later).

Finished this for the 3 questions needing pie charts.
This commit is contained in:
rehughes07 2021-10-25 16:13:22 +01:00
parent 0b15014181
commit dd66f2f923
4 changed files with 246 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

74
data/.Rhistory
View file

@ -1,64 +1,14 @@
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")
connect_data = read.csv("connectDATA.csv")
read.csv("connectDATA.csv")
## Summary of Data
Data summary/visualisation with subsetting:
- RH: display simple summary of data (bar/pie chart) to Q25/26, Q3
read.csv("connectDATA.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")
setwd("~/Documents/GitHub/re_connect_survey/data")
connect_data = read.csv("connectDATA.csv")
setwd("~/Documents/GitHub/re_connect_survey/data")
connect_data = read.csv("connectDATA.csv")
Q3data = read.csv("Q3.csv")
connect_data = read.csv("~/gits/re_connect_survey/data/connectDATA.csv")