Module # 3 Data.frame

[CODE] 
# Creating the data
Name <- c("Jeb", "Donald", "Ted", "Marco", "Carly", "Hillary", "Bernie")
ABC_poll_results <- c(4, 62, 51, 21, 2, 14, 15)
CBS_poll_results <- c(12, 75, 43, 19, 1, 21, 19)

# Creating a data frame
poll_data <- data.frame(Name, ABC_poll_results, CBS_poll_results)

# Displaying the data
poll_data

[OUTPUT] 

Name ABC_poll_results CBS_poll_results
1     Jeb                4               12
2  Donald               62               75
3     Ted               51               43
4   Marco               21               19
5   Carly                2                1
6 Hillary               14               21
7  Bernie               15               19

CBS has a higher percentage of popularity for Bernie, Hillary, Donald, and Jeb.  

As for ABC Ted, Marco, and Carly, all have higher percentages here compared to CBS.

Comments

Post a Comment

Popular posts from this blog

Module # 10 assignment

Image
 In this blog post, I'll delve into the world of time series analysis using ggplot2, a powerful data visualization package in R. Time series data involves observations collected or recorded at regular time intervals, making it a crucial area of study in various fields such as finance, economics, and environmental science. Visualizing time series data not only helps in understanding patterns and trends but also aids in making informed decisions based on the insights gained. Code:  # Extract year from date year <- function(x) as.POSIXlt(x)$year + 1900 economics$year <- year(economics$date) # Plot unemployment rate over time plot_unemployment <- ggplot(economics, aes(x = date, y = unemploy / pop)) +   geom_line() +   labs(title = "Unemployment Rate Over Time",        x = "Year",        y = "Unemployment Rate") +   theme_minimal() print(plot_unemployment) This plot provides a clear visualization of how the unemploymen...
Read more

Module # 7 assignment (Visual Analytics)

Image
  In this example, I've created two scatter plots, one for mpg vs. hp and another for mpg vs. wt, using mtcars and arranged them in a grid using the grid.arrange function.  My opinion on Few's recommendations.  Simplicity:   Few emphasize simplicity to avoid overwhelming the audience. The scatter plots are relatively simple, displaying two variables at a time (mpg vs. hp, mpg vs. wt). This simplicity aids in easy interpretation without unnecessary complexity. Clarity: Is a key principle in Few's recommendations. The use of grid arrangement helps in comparing the two scatter plots side by side, making it easier for viewers to identify patterns and differences between the variables. Accuracy: This is crucial, and Few often advocate for accurate representation of data. The scatter plots accurately represent the relationship between variables, allowing viewers to make informed observations about the distribution and correlation. Color Usage: Few often advise agai...
Read more

Module # 3 assignment

First, let's create the data sets Set#1 and Set#2: set1 <- c(10, 2, 3, 2, 4, 2, 5) set2 <- c(20, 12, 13, 12, 14, 12, 15)   Now, let's calculate the measures of central tendency for each set: # Mean for Set#1 and Set#2 mean_set1 <- mean(set1) mean_set2 <- mean(set2)   # Median for Set#1 and Set#2 median_set1 <- median(set1) median_set2 <- median(set2)   # Mode for Set#1 and Set#2 mode_set1 <- as.numeric(names(sort(table(set1), decreasing = TRUE)[1])) mode_set2 <- as.numeric(names(sort(table(set2), decreasing = TRUE)[1]))   Now, let's calculate the measures of variation for each set:   # Range for Set#1 and Set#2 range_set1 <- range(set1) range_set2 <- range(set2)   # Interquartile Range (IQR) for Set#1 and Set#2 iqr_set1 <- IQR(set1) iqr_set2 <- IQR(set2)   # Variance for Set#1 and Set#2 variance_set1 <- var(set1) variance_set2 <- var(set2)   # S...
Read more