Untitled

library(ggplot2)

## Warning: пакет 'ggplot2' был собран под R версии 4.3.2

library(utils)

## Warning: Use of `df_5$Labor` is discouraged.
## ℹ Use `Labor` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Use of `df_5$Capital` is discouraged.
## ℹ Use `Capital` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Use of `df_5$Return` is discouraged.
## ℹ Use `Return` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Use of `df_5$VRP` is discouraged.
## ℹ Use `VRP` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Use of `df_5$Invest` is discouraged.
## ℹ Use `Invest` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning in FUN(X[[i]], ...): в результате преобразования созданы NA

## Warning: Use of `df_5$ln_cap` is discouraged.
## ℹ Use `ln_cap` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Removed 122 rows containing non-finite outside the scale range
## (`stat_bin()`).

## Warning: Use of `df_5$ln_ret` is discouraged.
## ℹ Use `ln_ret` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Use of `df_5$ln_lab` is discouraged.
## ℹ Use `ln_lab` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Use of `df_5$ln_vrp` is discouraged.
## ℹ Use `ln_vrp` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Use of `df_5$ln_inv` is discouraged.
## ℹ Use `ln_inv` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

df_1 <- read.csv('C:/Users/Asus/OneDrive/Рабочий стол/2019-2022_5.csv', sep = ';')

ggplot(df_1) +
geom_histogram(aes(x = df_1$Labor), fill="#A8D8EA", col="#3F72AF", alpha = 0.5) +
xlab("Labor") + 
ylab("Density") +
ggtitle("The distribution of labor")

## Warning: Use of `df_1$Labor` is discouraged.
## ℹ Use `Labor` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(df_1) +
geom_histogram(aes(x = df_1$Capital), fill="#A8D8EA", col="#3F72AF", alpha = 0.5) +
xlab("Capital") + 
ylab("Density") +
ggtitle("The distribution of capital")

## Warning: Use of `df_1$Capital` is discouraged.
## ℹ Use `Capital` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(df_1) +
geom_histogram( aes(x = df_1$Return), fill="#A8D8EA", col="#3F72AF", alpha = 0.5) +
xlab("Return") + 
ylab("Density") +
ggtitle("The distribution of return")

## Warning: Use of `df_1$Return` is discouraged.
## ℹ Use `Return` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(df_1) +
geom_histogram(aes(x = as.numeric(df_1$ln_cap)), fill="#A8D8EA", col="#3F72AF", alpha = 0.5) +
xlab("ln_ret") + 
ylab("Density") +
ggtitle("The distribution of ln_ret")

## Warning in FUN(X[[i]], ...): в результате преобразования созданы NA

## Warning: Use of `df_1$ln_cap` is discouraged.
## ℹ Use `ln_cap` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Removed 147 rows containing non-finite outside the scale range
## (`stat_bin()`).

ggplot(df_1) +
geom_histogram(aes(x = df_1$ln_ret), fill="#A8D8EA", col="#3F72AF", alpha = 0.5) +
xlab("ln_ret") + 
ylab("Density") +
ggtitle("The distribution of ln_ret")

## Warning: Use of `df_1$ln_ret` is discouraged.
## ℹ Use `ln_ret` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(df_1) +
geom_histogram(aes(x = df_1$ln_lab), fill="#A8D8EA", col="#3F72AF", alpha = 0.5) +
xlab("ln_ret") + 
ylab("Density") +
ggtitle("The distribution of ln_ret")

## Warning: Use of `df_1$ln_lab` is discouraged.
## ℹ Use `ln_lab` instead.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.