Rstudio. )
1
используя фрейм present, создайте график доли мальчиков с течением
времени, и на основе графика определите, является ли следующее утверждение
истинным или ложным: доля мальчиков, родившихся в сша , уменьшилась с
течением времени.
2
используя фрейм present, создайте график, который отображает соотношение мальчик-к-девочке за каждый год. что вы видите? опишите тенденцию
3
используя фрейм present, вычислите абсолютные различия между количеством мальчиков и девочек, родившихся в каждом году, и определите, в каком
году была самая большая абсолютная разница в количествах новорожденных
девочек и мальчиков?
4
используя фрейм diamonds, определите все возможные сочетания качества огранки (cut), цвета (color) и чистоты (clarity) алмазов. результат представьте в таблице со столбцами: № п/п, cut, color, clarity.
5
используя фрейм diamonds, определите 100 самых больших алмазов, с
указанием их цены (price), величины (carat) и размеров по трем измерениям (x,
y, z).
6
используя набор данных nottem, постройте график изменения средней
температуры воздуха в городе ноттенгейм за период 1920-1939 год, отдельно
для каждого месяца с января по декабрь.
7
используя набор данных precip, определите города сша с минимальным
и максимальным уровнем годовых осадков.
8
используя набор данных pressure, постройте график зависимости давления паров ртути от температуры.
1. Создание графика доли мальчиков с течением времени:
- Сначала мы загрузим данные и установим нужные пакеты:
```R
install.packages("present")
library(present)
data("births")
```
- Затем создадим график:
```R
plot(births$year, births$boys / (births$boys + births$girls), type = "l", xlab = "Year", ylab = "Proportion of Boys")
```
- Анализ графика: Доли мальчиков на графике могут быть представлены в виде линии, которая может иметь восходящую или нисходящую тенденцию. Мы можем сравнить последний год на графике с самым первым годом, чтобы определить, увеличилась ли или уменьшилась доля мальчиков с течением времени.
2. Создание графика соотношения мальчик-девочка за каждый год:
- Мы используем те же данные "births", которые были загружены и установлены в предыдущем вопросе.
- Создадим график:
```R
plot(births$year, births$boys / births$girls, type = "l", xlab = "Year", ylab = "Ratio of Boys to Girls")
```
- Анализ графика: График покажет соотношение числа мальчиков к числу девочек за каждый год. Мы можем изучить тенденцию на графике, чтобы определить, есть ли увеличение или уменьшение этого соотношения с течением времени.
3. Вычисление абсолютных различий между количеством мальчиков и девочек:
- Используем данные "births", которые были загружены и установлены ранее.
- Вычислим абсолютные различия:
```R
births$abs_diff <- abs(births$boys - births$girls)
```
- Определим год с максимальной абсолютной разницей:
```R
max_diff_year <- births$year[which.max(births$abs_diff)]
```
- Анализ результата: Мы создали столбец "abs_diff" с абсолютными различиями между количеством мальчиков и девочек в каждом году. Затем мы определили год с максимальной абсолютной разницей. Это позволит нам найти год, в котором было наибольшее различие в количестве новорожденных мальчиков и девочек.
4. Создание таблицы сочетаний качества огранки, цвета и чистоты алмазов:
- Опять же мы должны загрузить нужный пакет и данные:
```R
library(ggplot2)
data("diamonds")
```
- Создадим таблицу сочетаний:
```R
combinations <- expand.grid(cut = levels(diamonds$cut), color = levels(diamonds$color), clarity = levels(diamonds$clarity))
combinations <- cbind(1:nrow(combinations), combinations)
colnames(combinations) <- c("No.", "Cut", "Color", "Clarity")
```
- Анализ результата: Мы использовали функцию "expand.grid" для создания всех возможных комбинаций качества огранки, цвета и чистоты алмазов. Затем мы добавили столбец номеров "No." к каждой комбинации и переименовали столбцы по нужным названиям.
5. Определение 100 самых больших алмазов с указанием цены, величины и размеров:
- Используем данные "diamonds", загруженные ранее.
- Определение 100 самых больших алмазов:
```R
largest_diamonds <- diamonds[order(diamonds$carat, decreasing = TRUE), ][1:100, c("price", "carat", "x", "y", "z")]
```
- Анализ результата: Мы отсортировали алмазы по размеру в порядке убывания и выбрали первые 100 самых больших. Затем мы сохранили информацию о цене, величине и размерах этих алмазов.
6. Построение графика изменения средней температуры воздуха в городе:
- Для этого вопроса мы загрузим данные "nottem":
```R
data("nottem")
```
- Создание графика:
```R
months <- month.abb[1:12] # Получаем сокращенные названия месяцев
plot(nottem, xlab = "Year", ylab = "Temperature", type = "n")
for (month in 1:12) {
points(nottem[nottem$mon == month, "year"], nottem[nottem$mon == month, "temp"], type = "l", col = month)
}
legend("topleft", legend = months, col = 1:12, lty = 1)
```
- Анализ графика: Мы построили график, отображающий изменение средней температуры в городе Ноттенгейм за период 1920-1939 годов для каждого месяца от января до декабря. Мы использовали цикл для создания линий для каждого месяца и задали разные цвета для каждой линии. Легенда позволяет нам идентифицировать каждый месяц на графике.
7. Определение городов США с минимальным и максимальным уровнем годовых осадков:
- Загрузим данные "precip":
```R
data("precip")
```
- Определение городов с минимальным и максимальным уровнем осадков:
```R
min_city <- precip[precip$precip == min(precip$precip), "name"]
max_city <- precip[precip$precip == max(precip$precip), "name"]
```
- Анализ результата: Мы нашли города США с минимальным и максимальным уровнем годовых осадков, используя функции "min" и "max". Результат содержит название этих городов.
8. Построение графика зависимости давления паров ртути от температуры:
- Загрузим данные "pressure":
```R
data("pressure")
```
- Создание графика:
```R
plot(pressure$temperature, pressure$pressure, xlab = "Temperature", ylab = "Vapor Pressure")
```
- Анализ графика: Мы построили график, который отображает зависимость давления пара ртути от температуры. Зависимость может быть представлена в виде линии или кривой на графике, и мы можем анализировать ее форму и тенденцию.
Надеюсь, эти подробные ответы помогут вам лучше понять и решить заданные вопросы. Если у вас возникнут еще вопросы или нужна помощь, пожалуйста, дайте мне знать!