Hi Bert,
Thanks a lot for informing me regarding the html format of my email.
I also would like to thank to Erdogan CEVHER and Jim LEMON for their kind
reply/suggestions. Yes I am aware of names function in R which is not the one I
am looking for in here. Let me try to explain in another way.
The below part includes data generation, making cross-tab, Chi-Squared test and
bar plot through ggplot.
#######################################################################
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")
###############################################
Let’s say I have hundreds of variables (e.g SNP data). By using above codes I
can perform what I need. However , I need to copy/paste variable name(s) for
making table, Chi-Square test, and ggplot. This increase the chance of
incorrectly copying/pasting variable name(s). What I can do is define variable
name(s) earlier and pass that names to making table, Chi-Square test, and
ggplot part. I believe there is a way to do it. I tried “paste” function (as
below), but it did not work either.
Any comment/help is deeply appreciated.
Kind Regards
Seyit Ali
##############################################
V1 <- "Gender"
V2 <- "Hand"
MyT2 <- table(paste('MyData$',V1), paste('MyData$',V2) )
print(MyT)
MyChi<- chisq.test(MyT)
print(MyChi)
dMyT <- data.frame(as.table(as.matrix(table(paste('MyData$',V1), paste('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")
#################################################
From: Bert Gunter [mailto:bgunter.4...@gmail.com]
Sent: Monday, 28 December 2020 12:08 AM
To: seyitali.ka...@ibu.edu.tr
Cc: R-help <r-help@r-project.org>
Subject: Re: [R] Passing variable name
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
<mailto: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 <mailto:s_a_ka...@yahoo.com> > s_a_ka...@yahoo.com
<mailto:s_a_ka...@yahoo.com> , <mailto:s_a_ka...@hotmail.com <mailto:s_a_ka...@hotmail.com> >
s_a_ka...@hotmail.com <mailto: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 <mailto: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.
