Концентрация никеля и цинка в растениях у дороги может варьироваться в зависимости от вида растения и места произрастания. По данным исследований, в растениях придорожных территорий улиц районного и местного значений в наибольших количествах содержится цинк (12,3–49,3 мг/кг). При этом в вегетативной части растений концентрация тяжёлых металлов в основном больше, чем в корневой системе. Например, содержание меди в надземной части растений в 2,8 раза выше, чем в корневой, а концентрация никеля в 1,5 раза превышает его содержание в корневой системе и в среднем составляет 1,4 мг/кг.
Также установлено, что содержание цинка в растениях варьировалось от 50 до 250 мг/кг, а никеля — от 10 до 65 мг/кг.
Избыточная (токсичная) концентрация цинка для растений находится в пределах от 100 до 400 мг/кг, никеля — от 10 до 100 мг/кг сухого вещества.
Растения, произрастающие вблизи дорог, накапливают вредные вещества из-за выбросов автотранспорта. Тяжёлые металлы поступают в растения двумя путями: из атмосферы через листовую пластину и из почвы через корневую систему. Преимущественно токсиканты накапливаются в листьях и корнях. 2
Например, морковь и картофель «запасают» свинец, редис — кадмий, свёкла — медь и цинк. Салат и сельдерей накапливают значительно больше свинца в листьях, чем в корнях, а морковь и одуванчик — наоборот, в корнях.
Максимум загрязнителей аккумулируется в 100-метровой полосе от бровки дорожного полотна. С удалением от проезжей части концентрация загрязнителей постепенно снижается и приближается к условно-фоновым значениям.
Рекомендуется не собирать и не употреблять в пищу растения, растущие вдоль автомобильных дорог.
library (dplyr)
## Warning: пакет 'dplyr' был собран под R версии 4.3.3
##
## Присоединяю пакет: 'dplyr'
## Следующие объекты скрыты от 'package:stats':
##
## filter, lag
## Следующие объекты скрыты от 'package:base':
##
## intersect, setdiff, setequal, union
library (readxl)
## Warning: пакет 'readxl' был собран под R версии 4.3.3
b <- read_excel("metals.xlsx")
b$distance_to_road=="0-200"
## [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [13] FALSE FALSE TRUE FALSE TRUE TRUE FALSE TRUE
b[b$distance_to_road=="0-200",]$Zn_plants
## [1] 38.80 31.82 35.00 16.80
mean(b[b$ distance_to_road =="0-200",]$Zn_plants)
## [1] 30.605
var(b[b$ distance_to_road=="0-200",]$Zn_plants)
## [1] 92.84277
b$distance_to_road=="200-400"
## [1] TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [13] FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE
b[b$distance_to_road=="200-400",]$Zn_plants
## [1] 20.15 49.00 18.26 38.21 41.80
mean(b[b$ distance_to_road =="200-400",]$Zn_plants)
## [1] 33.484
var(b[b$ distance_to_road=="200-400",]$Zn_plants)
## [1] 185.4507
b$distance_to_road=="400-600"
## [1] FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE TRUE TRUE
## [13] FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE
b[b$distance_to_road=="400-600",]$Zn_plants
## [1] 43.06 30.59 25.04 36.63 18.05
mean(b[b$ distance_to_road =="400-600",]$Zn_plants)
## [1] 30.674
var(b[b$ distance_to_road=="400-600",]$Zn_plants)
## [1] 95.00033
b$distance_to_road=="600-800"
## [1] FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE TRUE FALSE FALSE
## [13] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
b[b$distance_to_road=="600-800",]$Zn_plants
## [1] 15.27 37.01 52.02 30.20 20.07 19.65
mean(b[b$ distance_to_road =="600-800",]$Zn_plants)
## [1] 29.03667
var(b[b$ distance_to_road=="600-800",]$Zn_plants)
## [1] 190.2385
1.Таблица “Металлы”
2.https://itsfoss.com/r-markdown/