Module #3 Post

This week's assignment was to create a data frame from the following data then explore and post our findings. 

We were given imaginary poll numbers from the previous election. As observed in the bar charts created, the candidate Ted was significantly more popular with ABC watchers than CBS. The candidate Jeb was more popular with CBS watchers than ABC. 


# library

library(ggplot2)

Name <- c("Jeb", "Donald", "Ted", "Marco", "Carly", "Hillary", "Bernie")

ABC_poll<- c(4, 62, 51, 21, 2, 14, 15)

CBS_poll<- c(12, 75, 43, 19, 1, 21, 19)
 

#Creates Data Frame from the above values

DF <- data.frame(Name, ABC_poll, CBS_poll)

#Returns the first 4 of DF

head(DF)

#Returns how many rows/columns

dim(DF)


#Returns names of columns

names(DF)


#Function to graph the poll results. 

GraphIT <- function(Poll){

  News_Plot <- ggplot(data=DF, aes(x=Name, y=Poll, fill=Name, label=Poll)) +

    geom_bar(stat = "identity") +

    geom_text(size = 3, position = position_stack(vjust = 0.5))

    return(News_Plot)

}

#CBS poll numbers graphed

CBS <- GraphIT(CBS_poll)

CBS


#ABC pull numbers graphed

ABC <- GraphIT(ABC_poll)

ABC

 

CBS Graph









ABC Graph




Please see my Github!

https://github.com/Midiquin/LIS4370.720S21/blob/main/Mod3.R







Comments

Post a Comment

Popular posts from this blog

Module #4

Image
 This week we were asked to create a boxplot and histogram of faux local hospital data. As well as discuss the outcome of our results regarding patients' BPs & MD’s Ratings. From the first graph (boxplot), we can observe that patients with a higher final decision had visited the hospital more frequently than the lower final decision. We can also observe that those with higher blood pressure visited the hospital more frequently than those with lower blood pressure.  The second graph (histogram), displays that there were more "bad" first assessments with the patients with one N/A.   The second graph (histogram2), displays that there were more "high" blood pressure assesments by doctor #2.   library(ggplot2) #Data  p1<- c(0.6,103,'bad','low','low') p2<- c(0.3,87,'bad','low','high') p3<- c(0.4,32,'bad','high','low') p4<- c(0.4,42,'bad','high','high') p5...
Read more

Module #6

 In this module, we did more math with matrices!  We were asked to examine two matrices, add them, minus them, and then use the diag() function. We were also asked to replicate/recreate a matrix with certain criteria.  #Start with two matrices A = matrix(c(2, 0, 1, 3), ncol = 2) B = matrix(c(5, 2,4, -1), ncol = 2) #Call/View matrices A      [,1] [,2] [1,]    2    1 [2,]    0    3 B      [,1] [,2] [1,]    5    4 [2,]    2   -1 #It appears that both matrices are the same size, therefore can be combined, added, subtracted.. etc..  # Find A + B C <- A + B #Call / View matrix C      [,1] [,2] [1,]    7    5 [2,]    2    2 # Find A - B D <- A - B #Call / View matrix D      [,1] [,2] [1,]   -3   -3 [2,]   -2    4 #Use the diag() function to build a mat...
Read more