knitr::include_graphics("C:/Users/Jose Salazar/OneDrive/Pictures/Jose_Salazar_R for Data Science Analysis and Visualization.jpg")

This introductory course for R covered the basics when it came to the R language. Mostly utilized for analyzing of data, R for Data Science covered the fundamentals of R, to include installation, setting up RStudio, and using code packages. It also allowed for the student to practice and get experience with models, visualization, and statistical analysis. At the end of the course, I felt that I had a good understanding of R’s capabilities. It allowed me to go back a rewatch videos to understand basic coding needed for my work in this course. It’s a great class for anyone who needs an introduction to programming. I enjoyed the data visualization as it was very fulfilling to see your data inputs in a graph or chart. It verified that you were inputting the information in correctly.

# Load the necessary libraries
library(tidyverse)
── Attaching core tidyverse packages ───────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.1     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.2     ── Conflicts ─────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors
# Use the mtcars dataset
data("mtcars")

# Group by the number of cylinders and calculate averages
average_mpg_weight <- mtcars %>%
  group_by(cyl) %>%
  summarize(
    average_mpg = mean(mpg, na.rm = TRUE),
    average_weight = mean(wt, na.rm = TRUE)
  )

# Display the results
print(average_mpg_weight)
NA
LS0tDQp0aXRsZTogIlByZXNlbnRhdGlvbiA2IEpvc2UgU2FsYXphciINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyfQ0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoIkM6L1VzZXJzL0pvc2UgU2FsYXphci9PbmVEcml2ZS9QaWN0dXJlcy9Kb3NlX1NhbGF6YXJfUiBmb3IgRGF0YSBTY2llbmNlIEFuYWx5c2lzIGFuZCBWaXN1YWxpemF0aW9uLmpwZyIpDQpgYGANClRoaXMgaW50cm9kdWN0b3J5IGNvdXJzZSBmb3IgUiBjb3ZlcmVkIHRoZSBiYXNpY3Mgd2hlbiBpdCBjYW1lIHRvIHRoZSBSIGxhbmd1YWdlLiBNb3N0bHkgdXRpbGl6ZWQgZm9yIGFuYWx5emluZyBvZiBkYXRhLCBSIGZvciBEYXRhIFNjaWVuY2UgY292ZXJlZCB0aGUgZnVuZGFtZW50YWxzIG9mIFIsIHRvIGluY2x1ZGUgaW5zdGFsbGF0aW9uLCBzZXR0aW5nIHVwIFJTdHVkaW8sIGFuZCB1c2luZyBjb2RlIHBhY2thZ2VzLiBJdCBhbHNvIGFsbG93ZWQgZm9yIHRoZSBzdHVkZW50IHRvIHByYWN0aWNlIGFuZCBnZXQgZXhwZXJpZW5jZSB3aXRoIG1vZGVscywgdmlzdWFsaXphdGlvbiwgYW5kIHN0YXRpc3RpY2FsIGFuYWx5c2lzLiBBdCB0aGUgZW5kIG9mIHRoZSBjb3Vyc2UsIEkgZmVsdCB0aGF0IEkgaGFkIGEgZ29vZCB1bmRlcnN0YW5kaW5nIG9mIFLigJlzIGNhcGFiaWxpdGllcy4gSXQgYWxsb3dlZCBtZSB0byBnbyBiYWNrIGEgcmV3YXRjaCB2aWRlb3MgdG8gdW5kZXJzdGFuZCBiYXNpYyBjb2RpbmcgbmVlZGVkIGZvciBteSB3b3JrIGluIHRoaXMgY291cnNlLiBJdOKAmXMgYSBncmVhdCBjbGFzcyBmb3IgYW55b25lIHdobyBuZWVkcyBhbiBpbnRyb2R1Y3Rpb24gdG8gcHJvZ3JhbW1pbmcuIEkgZW5qb3llZCB0aGUgZGF0YSB2aXN1YWxpemF0aW9uIGFzIGl0IHdhcyB2ZXJ5IGZ1bGZpbGxpbmcgdG8gc2VlIHlvdXIgZGF0YSBpbnB1dHMgaW4gYSBncmFwaCBvciBjaGFydC4gSXQgdmVyaWZpZWQgdGhhdCB5b3Ugd2VyZSBpbnB1dHRpbmcgdGhlIGluZm9ybWF0aW9uIGluIGNvcnJlY3RseS4NCmBgYHtyfQ0KIyBMb2FkIHRoZSBuZWNlc3NhcnkgbGlicmFyaWVzDQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCg0KIyBVc2UgdGhlIG10Y2FycyBkYXRhc2V0DQpkYXRhKCJtdGNhcnMiKQ0KDQojIEdyb3VwIGJ5IHRoZSBudW1iZXIgb2YgY3lsaW5kZXJzIGFuZCBjYWxjdWxhdGUgYXZlcmFnZXMNCmF2ZXJhZ2VfbXBnX3dlaWdodCA8LSBtdGNhcnMgJT4lDQogIGdyb3VwX2J5KGN5bCkgJT4lDQogIHN1bW1hcml6ZSgNCiAgICBhdmVyYWdlX21wZyA9IG1lYW4obXBnLCBuYS5ybSA9IFRSVUUpLA0KICAgIGF2ZXJhZ2Vfd2VpZ2h0ID0gbWVhbih3dCwgbmEucm0gPSBUUlVFKQ0KICApDQoNCiMgRGlzcGxheSB0aGUgcmVzdWx0cw0KcHJpbnQoYXZlcmFnZV9tcGdfd2VpZ2h0KQ0KDQpgYGANCg0K