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.