Housing

getwd()

## [1] "/Users/isaiahmireles/Downloads"

setwd("/Users/isaiahmireles/Downloads")

## Warning: package 'dplyr' was built under R version 4.4.3

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.2.0     ✔ purrr     1.1.0
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   4.0.0     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
## Rows: 10 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (9): Timestamp, Are you able to commit to the full 9-month lease?, Are y...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

df

c <- colnames(df)
colnames(df) <- paste0("c",1:ncol(df))

dict <- data.frame(nm=colnames(df),mn=c)

af <- df |> 
  filter(
    c3!="No, I am NOT affiliated with UCLA",
    c7 == "Just myself")
dict

• 2 people non-affiliated, 1 not just themself

af

dict