Untitled
unknown
plain_text
20 days ago
1.9 kB
12
Indexable
--- title: "Ramki Danych - praca domowa" output: pdf_document: toc: yes rmd_document: toc: yes author: "Zuzanna Piszczatowska" date: "2025-04-05" --- ```{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) ``` #zad1 ```{r} female_names <- read.csv("female_names.csv", stringsAsFactors = FALSE, header = TRUE, sep =";") colnames(female_names) ``` #zad2 ```{r} names_2013 <- female_names[female_names$"year" == 2013, ] ``` #zad3 ```{r} max <- 0 most_popular_name <- "" for(i in 1:nrow(names_2013)) { current <-names_2013$prop[i] name <- names_2013$name[i] if(current > max){ max<-current most_popular_name <- name}} answer <- paste("Najpopularniejsze imię w 2013 roku to", most_popular_name,".") answer ``` #zad4 ```{r} most_popular_in_year <- function(year) { all_years <- female_names[female_names$year == year, ] max_prop <- which.max(all_years$prop) return(all_years$name[max_prop]) } ``` #zad5 ```{r} popular_1994 <- most_popular_in_year(1994) answer <- paste("Najpopularniejsze imię w 1994 to", popular_1994,".") answer ``` #zad6 ```{r} number_in_million <- function(name, year) { name_and_year <- female_names[female_names$name == name & female_names$year == year, ] return(name_and_year$prop*1000000) } ``` #zad7 ```{r} Laura_in_1995 <- number_in_million("Laura", 1995) answer <- paste("W 1995 imię Laura otrzymało", Laura_in_1995, "dzieci.") answer ``` #zad8 ```{r} Susan_in_2002 <- number_in_million("Susan", 2002) answer <- paste("W roku mojego urodzenia moje imię otrzymało", Susan_in_2002, "dzieci.") answer ``` #zad9 ```{r} number_in_million("Victoria", 2002) number_in_million("Caroline", 2002) number_in_million("Julia", 2002) ``` "W porównaniu do osób z innymi imionami, które są bardziej popularne (np. Victoria, Caroline, Julia), zidentyfikowanie mnie nie wydaje się takie trudne."
Editor is loading...
Leave a Comment