Quiz #3

L’Income è calcolato in decine di migliaia di dollari, trasformalo in dollari e poi crea un altra variabile data dalla differenza tra limite della carta e bilancio medio. Quale id utente ha il valore più elevato per questa nuova variabile?

library("tidyverse")

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.0     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.1     ✔ tibble    3.2.0
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── 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

library("ISLR")

data("Credit",package="ISLR")

Credit %>%
select(ID,Balance,Limit,Income) %>%
mutate(Income=Income*10000) %>%
mutate(Diff=Limit-Balance) %>%
arrange(desc(Diff)) %>%
head(1)

##    ID Balance Limit  Income  Diff
## 1 324    1999 13913 1827280 11914