I have some R code and a data file attached. In the R code, I have a date frame with two columns. One of the columns is a multiple choice question from a survey that had 5 options. The other is a numerical value from a survey that had a Likert scale. I am trying to compare these to determine whether one affects the other. How can I do this?
Here is my R code and I have attached my data file
library(ggplot2)
library(ggpubr)
library(tidyverse)
library(broom)
library(AICcmodavg)
install.packages(“Hmisc”)
library(“Hmisc”)
library(readxl)
results_survey_R_ <- read_excel("results-survey(R).xls")
df <- results_survey_R_
mydata <- df[,c("165", "166","167", "168","169", "170","171", "172","173", "174","175", "176","177", "178","179", "180","181", "182","183")]
mydata.cor = cor(mydata)
mydata.cor = cor(mydata, method = c(“spearman”))
mydata.rcorr = rcorr(as.matrix(mydata))
mydata.rcorr
mydata.coeff = mydata.rcorr$r
mydata.p = mydata.rcorr$P
install.packages(“corrplot”)
library(corrplot)
corrplot(mydata.cor)
mydata2 <- df[,c("165", "11","167", "14","10")]
mydata3 <- df[,c("14", "169")]
summary(mydata3) <\/p>\n","protected":false},"excerpt":{"rendered":"
I have some R code and a data file attached. In the R code, I have a date frame with two columns. One of the columns is a multiple choice question from a survey that had 5 options. The other is a numerical value from a survey that had a Likert scale. I am trying […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[10],"class_list":["post-67807","post","type-post","status-publish","format-standard","hentry","category-research-paper-writing","tag-writing"],"_links":{"self":[{"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/posts\/67807","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/comments?post=67807"}],"version-history":[{"count":0,"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/posts\/67807\/revisions"}],"wp:attachment":[{"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/media?parent=67807"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/categories?post=67807"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/papersspot.com\/blog\/wp-json\/wp\/v2\/tags?post=67807"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}