Trjtdtk

Multi tool use

What (if any) is the reason to buy in small local stores?

Not hide and seek

Is this Pascal's Matrix?

Single word to change groups

God... independent

Jem'Hadar, something strange about their life expectancy

"Marked down as someone wanting to sell shares." What does that mean?

Was World War I a war of liberals against authoritarians?

Are hand made posters acceptable in Academia?

Why are there no stars visible in cislunar space?

How can a new country break out from a developed country without war?

Hot air balloons as primitive bombers

How do researchers send unsolicited emails asking for feedback on their works?

Why is this tree refusing to shed its dead leaves?

Weird lines in Microsoft Word

What is the tangent at a sharp point on a curve?

Exit shell with shortcut (not typing exit) that closes session properly

Referencing javascript library in content editor webpart

How to balance a monster modification (zombie)?

Exposing a company lying about themselves in a tightly knit industry (videogames) : Is my career at risk on the long run?

Why didn’t Eve recognize the little cockroach as a living organism?

Why is "la Gestapo" feminine?

is this saw blade faulty?

Mortal danger in mid-grade literature

Better way to graph percentage of One Categorical Variable by another in R

How to get correlation between two categorical variable and a categorical variable and continuous variable?How does one feed graph optimization problems into Python's anneal function in SciPy?full name of each variable in Plotmo graphsub-setting based on categorical variable in RNew values for categorical variable in Prediction datasetGraph to display differences (or lack of) in multilevel categorical dataCluster a categorical variable without breaking the existing categoriesBayesian linear regression / categorical variable / Laplace priorContinuous variable to categorical by quartiles?How to find out the percentage of contribution of a variable for another variable/feature?

1

$begingroup$

Looking through the Brfss 2013 dataset (a study that recorded many elements of an observers health habits and outcomes), I wanted to see if there was a correlation between smoking often and being an excessive drinker, by seeing the percentage of the three types of Smokers 'Every Day' 'Sometimes' 'None smokers' that drink often.

This is the code I ended up using:
('drnk3ge5' and 'smokday2' are the respective variables for drinking and smoking)

brfss <- brfss2013 %>%
filter(!is.na(drnk3ge5),!is.na(smokday2))

brfss_1 <- mutate(brfss, bngdrnkr = ifelse(drnk3ge5 >= 4,'Yes','No'))
test1 <- brfss_1 %>%
 filter(bngdrnkr == "Yes") %>%
 group_by(smokday2,bngdrnkr) %>%
 summarise(yes_count = n())
test2 <- brfss_1 %>%
 group_by(smokday2) %>%
 summarise(total = n())
test1$total <- test2$total
test1 %>%
 group_by(smokday2) %>%
 ggplot(aes(x=smokday2,y=(yes_count/total))) +geom_bar(stat="identity")

Is there anyway to code this clearer and more easily understandable?

r statistics graphs

share|improve this question

asked yesterday

Shaul SolomonShaul Solomon

61

New contributor

Shaul Solomon is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

add a comment | 

1

$begingroup$

Looking through the Brfss 2013 dataset (a study that recorded many elements of an observers health habits and outcomes), I wanted to see if there was a correlation between smoking often and being an excessive drinker, by seeing the percentage of the three types of Smokers 'Every Day' 'Sometimes' 'None smokers' that drink often.

This is the code I ended up using:
('drnk3ge5' and 'smokday2' are the respective variables for drinking and smoking)

brfss <- brfss2013 %>%
filter(!is.na(drnk3ge5),!is.na(smokday2))

brfss_1 <- mutate(brfss, bngdrnkr = ifelse(drnk3ge5 >= 4,'Yes','No'))
test1 <- brfss_1 %>%
 filter(bngdrnkr == "Yes") %>%
 group_by(smokday2,bngdrnkr) %>%
 summarise(yes_count = n())
test2 <- brfss_1 %>%
 group_by(smokday2) %>%
 summarise(total = n())
test1$total <- test2$total
test1 %>%
 group_by(smokday2) %>%
 ggplot(aes(x=smokday2,y=(yes_count/total))) +geom_bar(stat="identity")

Is there anyway to code this clearer and more easily understandable?

r statistics graphs

share|improve this question

asked yesterday

Shaul SolomonShaul Solomon

61

New contributor

Shaul Solomon is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

add a comment | 

$begingroup$

Looking through the Brfss 2013 dataset (a study that recorded many elements of an observers health habits and outcomes), I wanted to see if there was a correlation between smoking often and being an excessive drinker, by seeing the percentage of the three types of Smokers 'Every Day' 'Sometimes' 'None smokers' that drink often.

This is the code I ended up using:
('drnk3ge5' and 'smokday2' are the respective variables for drinking and smoking)

brfss <- brfss2013 %>%
filter(!is.na(drnk3ge5),!is.na(smokday2))

brfss_1 <- mutate(brfss, bngdrnkr = ifelse(drnk3ge5 >= 4,'Yes','No'))
test1 <- brfss_1 %>%
 filter(bngdrnkr == "Yes") %>%
 group_by(smokday2,bngdrnkr) %>%
 summarise(yes_count = n())
test2 <- brfss_1 %>%
 group_by(smokday2) %>%
 summarise(total = n())
test1$total <- test2$total
test1 %>%
 group_by(smokday2) %>%
 ggplot(aes(x=smokday2,y=(yes_count/total))) +geom_bar(stat="identity")

Is there anyway to code this clearer and more easily understandable?

r statistics graphs

share|improve this question

asked yesterday

Shaul SolomonShaul Solomon

61

New contributor

Shaul Solomon is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

brfss <- brfss2013 %>%
filter(!is.na(drnk3ge5),!is.na(smokday2))

brfss_1 <- mutate(brfss, bngdrnkr = ifelse(drnk3ge5 >= 4,'Yes','No'))
test1 <- brfss_1 %>%
 filter(bngdrnkr == "Yes") %>%
 group_by(smokday2,bngdrnkr) %>%
 summarise(yes_count = n())
test2 <- brfss_1 %>%
 group_by(smokday2) %>%
 summarise(total = n())
test1$total <- test2$total
test1 %>%
 group_by(smokday2) %>%
 ggplot(aes(x=smokday2,y=(yes_count/total))) +geom_bar(stat="identity")

share|improve this question

asked yesterday

Shaul SolomonShaul Solomon

61

New contributor

Shaul Solomon is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

share|improve this question

asked yesterday

Shaul SolomonShaul Solomon

61

New contributor

Shaul Solomon is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked yesterday

Shaul SolomonShaul Solomon

61

New contributor

Shaul Solomon is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked yesterday

Shaul SolomonShaul Solomon

61