d <- read.csv(file = 'https://stats.dip.jp/01_ds/data/data_cleansing2_dirty_data_exercise.csv')

library(DT)
datatable(d)
boxplot(d)

any(d < 0)
## [1] TRUE
jj <- 36:46
boxplot(d[, jj])