Упражнение 1. Используя портал Открытых данных России, найти интересующие Вас данные в разных форматах - excel, csv. Загрузить данные по ссылке, внести в них изменения (создать новую переменную, что-то поменять, используя R) и сохранить новый файл в аналогичном формате.

по разным причинам не удалось зайти на портал, пробовала с разных компьютеров. Пишет, что не безопасное соединение, либо какая то проблема с часовыми поясами(время на компьютере правильно идет).

взяла данные с росстата: “Среднемесячная начисленная заработная плата наёмных работников в организациях, у индивидуальных предпринимателей и физических лиц1)”

library(readxl)
znr_2022 <- read_excel("znr-2022.xlsx")
## New names:
## • `` -> `...2`
## • `` -> `...3`
## • `` -> `...4`
## • `` -> `...5`
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`
## • `` -> `...9`
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.0     ✔ 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 conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(nycflights13)
library(readxl)
znr_2022 <- read_excel("znr-2022.xlsx", col_names = T, skip = 2)
## New names:
## • `` -> `...1`
znr_2022<-znr_2022[-97,]
znr_2022<-znr_2022 %>% 
  mutate(d= `2022`-`2015`) 
znr_2022$change<-znr_2022$`2022`-znr_2022$`2015`
library(dplyr)
d<-sapply(znr_2022[,2:9], mean)
d
##     2015     2016     2017     2018     2019     2020     2021     2022 
## 28129.04 29805.49 31568.29 34633.05 36533.50 38872.27 41858.27 46162.41

Нашла в интернете набор данных по исследованию белок в Нью-Йорке

download.file("https://github.com/Opensourcefordatascience/Data-sets/blob/master/responses_state.csv", "responses_stat.csv")
ck<-read.csv("onlinefoods.csv")

Упражнение 2. С официального сайта Алтайского края скачать Указ Губернатора о присвоении звания ветерана труда и загрузить его в рабочую папку.

документ загрузился в файлы, но не открывается так он в пдф формате

Упражнение 3. С официального сайта Алтайского края, из раздела, посвященного национальной политике, скачать список национально-культурных организаций и сохранить его в формате excel.

library(readxl)
X1 <- read_excel("1.xlsx")

Упражнение 4. Загрузить базу данных своего магистерского исследования из SPSS в R.

library(haven)
df<-read_sav("База_КлимРиск_2023.sav")