This is a *plain text* list. As you can see from the included text that I received, the HTML version that you sent was somewhat mangled by the server. I do not know whether or not enough got through for you to get a helpful reply, but if not, re-send *to the list, not me* in *plain text*.
Bert Gunter "The trouble with having an open mind is that people keep coming along and sticking things into it." -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) On Sun, Dec 27, 2020 at 12:25 PM Seyit Ali KAYIS <seyitali.ka...@ibu.edu.tr> wrote: > Dear R users, > > � > > I have a data frame as below. In part 1, I have created a table for Gender > and Hand, performed Chi-Square test and made graph using ggplot. > > � > > I want to replace the original variable names (Gender and Hand) with V1 > and V2 and to be able to perform those things again as in #part 2. Is there > a way to be able to replace the original names? > > � > > Any help is deeply appreciated > > � > > Kind Regards > > � > > Seyit Ali > > � > > > ############################################################################# > > � > > MyData<-data.frame("Gender" = c("F", "F", "F", "F", > "M", "M", "M", "M", "M", "M", "F", > "F"), > > "Hand" = c("R", "R", "L", "L", > "R", "R", "L", "L", "R", > "R", "L", "L"), > > "Gr" = c(1, 2, 1, 2, > 1, 2, 1, 2, 1, 2, > 1, 2) ) > > > > MyData <- within(MyData, { > > Gender <- factor(Gender) > > Hand <- factor(Hand) > > Gr <- factor(Gr) > > } > > ) > > � > > str(MyData) > > � > > library(ggplot2) > > � > > ################# Part 1 ######################################### > > � > > MyT <- table(MyData$Gender, MyData$Hand) > > print(MyT) > > � > > MyChi<- chisq.test(MyT) > > print(MyChi) > > dMyT <- data.frame(as.table(as.matrix(table(MyData$Gender, MyData$Hand, > useNA = "ifany")))) > > name2<- c("Gender", "Hand", "Frequency") > > > names(dMyT) <- name2 > > � > > ggplot(data = na.omit(dMyT), aes(fill=Hand, y=Frequency, x=Gender)) + > > geom_bar(position="dodge", stat="identity") > > � > > ################# Part 2 ################ > > � > > # I want to be able to pass Gender and Hand as V1 and V2 , respectively to > > # table, Chi-Square test and ggplot > > � > > V1 <- "Gender" > > V2 <- "Hand" > > � > > MyT2 <- table(MyData$V1, MyData$V2) > > � > > print(MyT) > > � > > MyChi<- chisq.test(MyT) > > print(MyChi) > > dMyT <- data.frame(as.table(as.matrix(table(MyData$V1, MyData$V2, useNA = > "ifany")))) > > name2<- c(V1, V2, "Frequency") > > names(dMyT) <- name2 > > � > > ggplot(data = na.omit(dMyT), aes(fill=V2, y=Frequency, x=V1)) + > > geom_bar(position="dodge", stat="identity") > > � > > � > > � > > � > > ---------------------------------------------------- > > Dr. Seyit Ali KAYIS > > Bolu Abant Izzet Baysal University, Faculty of Medicine > > Department of Biostatistics and Medical Informatics > > Bolu, Turkey > > > > <mailto:s_a_ka...@yahoo.com> s_a_ka...@yahoo.com, <mailto: > s_a_ka...@hotmail.com> s_a_ka...@hotmail.com > > Tel: +90 374 254 30 32 Mobile: +90 535 587 1139 > > > > Greetings from Bolu, Turkey > > ------------------------------------------------------ > > � > > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.