Просмотр кода страницы Wealth Distribution/Lesson R

<syntaxhighlight lang="R" line>

##### Загрузили без 6 строк описания датасета
data_raw <- read.csv("WD_.csv",  ##  имя датасета
                     skip = 6, 
                     header = TRUE, 
                     stringsAsFactors = FALSE)

data_clean <- data_raw[complete.cases(data_raw), ]

### Переименовали столбцы в более понятные
new_names <- c(
  "run_id", "grain_grown", "pct_best_land", "metab_max", 
  "vision_max", "n_people", "grain_interval", 
  "life_exp_min", "life_exp_max", "step_id", "tick",
  "n_agents_total", "n_red", "n_green", "n_blue",
  "gini_per_capita", "gini_total"
)

names(data_clean) <- new_names

#### Сократили число столбцов с 17 до 9 - оставили только необхимое
data_clean <- data_clean[, c(
  "tick",           # время
  "vision_max", "pct_best_land", "metab_max",  # параметры
  "n_agents_total", "n_red", "n_green", "n_blue",  # метрики
  "gini_per_capita" # главный показатель!
)]
</syntaxhighlight>