• Project Description • Project goal & social problem addressed • Project data • Actions • Dataset Information • Codes and Preliminary Results • Conculusion • Results and Discussion • References
Municipal waste recycled and composted in each European country
Per capita municipal waste generation in the European Union in 2019
We aimed to make our project understandable and easy to read. We used various graphics and maps for this. Instead of tiring the readers with numbers and complex data, we wanted to explain the data with colors and shapes.
First of all, we started by adding the necessary libraries to our code. Then we imported our data and created our tables and loaded them into our code page. While processing the data, we deleted the unnecessary rows and columns, filtered the data that would be useful to us and created new tables. Then we interpreted them by turning them into graphics.
In the first table, we visualized the recycling rates of countries. In the second table, we showed the landfill rates of the countries. In these two tables, Turkey part was highlighted.In the next two tables, we first printed the table showing the relationship between recycling and landfill, and then again showing the relationship between landfill and Incineration with energy recovery. We visualized Turkey’s recycling and landfill rate as a pie chart.In the last tables you will see, municipal waste rates in 20004 and 2014.
As the next step, we made a new data analysis. First, we did some preprocessing on our data sets such as data cleaning and filtering. The first new data included the total waste generation rates of European countries. We visualized this data and turned it into a graph. In this way, we can easily see on the graph in which countries more waste is produced and in which countries less amount of waste is produced.
Likewise, we have converted the recycling rates of countries to the same chart, and thus, we have made these two parameters more easily comparable.We mapped these two data in order to see the amount of recycling and total waste generation as density on the map.
Then, for the date range ,2001-2018, we examined the treatment of hazardous waste shipments from EU with the bar chart. In addition to these, we have transformed the data containing the gross national products of European countries in millions into a bar graph.
The one of the dataset we obtained for the project was taken from this website (https://en.wikipedia.org/wiki/Recycling_rates_by_country). To explain our dataset, we should know about some terms explanation. There are 5 terms that we should know. First of all, we can start with Recycling.
Recycling means that an item is reclaimed and then melted or broken down into raw materials to be manufactured into a new item. There are a lot of different types of recycling. Most popular ones are; Waste Paper and Cardboard, Plastic Recycling, Metal Recycling, WEEE Recycling (Electronic Devices), Wood Recycling, Glass Recycling, Clothing and Textile and Bricks and Inert Waste Recycling.
Composting is the natural process of recycling organic matter, such as leaves and food scraps, into a valuable fertilizer that can enrich soil and plants. Dead plants, fruit and vegetable scraps can be recycled through composting.The resulting compost product can be used in a variety of ways. Composting can be used agricultural land, backyard garden or construction sites. Composting is free and a lot healthier for the environment. Composting means less waste goes to landfills.
Composting Benefits:
Minimize the amount of trash we send to the landfill: Like recycling, composting reduces the amount of waste that gets sent to the landfill.
Incineration with energy recovery refers to incineration processes where the energy created in the combustion process is harnessed for re-use, for example for power generation. Incineration without energy recovery means the heat generated by combustion is dissipated in the environment.
Any waste that is not recycled or reused has to go somewhere, and it usually ends up at a landfill site. Landfill sites contain both household and commercial rubbish. Household waste that gets sent to landfill consists of mostly organic waste, for example food, paper, cardboard or wood. Other household rubbish contains plastic or tin packaging. Landfill sites are ugly problem.Landfills are a major source of pollution, and there are many negative issues associated with them. Rubbish buried in landfill breaks down at a very slow rate and remains a problem for future generations.
# Reading in the table from Wikipedia
page = read_html("https://en.wikipedia.org/wiki/Recycling_rates_by_country")
# Obtain the piece of the web page that corresponds to the "wikitable" node
my.table = html_node(page, ".wikitable")
# Convert the html table element into a data frame
my.table = html_table(my.table, fill = TRUE)
As we can the our output Slovenia’s Recycling Rate in 2019 is the highest one. Compare to Slovenia Turkey Recycling rate in 2019 is one of the lowest.
ggplot(data = my.table, aes(y = reorder(Country, -Recycling),
x = Recycling, fill = Country)) +
labs(x="Recycling Rates (%)",y= "Countries", title="Countries's Recycling Rates")+
geom_bar(stat = "identity") +
theme_bw() +
scale_fill_manual( values = c( "Turkey"="tomato" ), guide = FALSE )
We checked the also Landfill rates.Our data output shows that Turkey’s Landfill rate in 2019 is the highest one. Compare to Turkey. Germany Landfill rate in 2019 is one of the lowest.
ggplot(data = my.table, aes(y = reorder(Country, -Landfill),
x = Landfill, fill = Country)) +
labs(x="Landfill Rates (%)",y= "Countries", title="Countries's Landfill Rates")+
geom_bar(stat = "identity") +
theme_bw() +
scale_fill_manual( values = c( "Turkey"="tomato" ), guide = FALSE )
If we consider the terms we have explained and our data outputs.Landfill and recycling rates of countries are inversely related to each other.The red curve in our output clearly shows us this relationship. This relationship, which we usually see in developing countries, is related to the high rate of Landfill, the oldest method used in waste disposal. Landfills are commonly found in developing countries.Developed countries have kept this Landfill rate low by using the Landfill technique less.
par(mar=c(5,5,5,7.2), xpd=FALSE)
plot(x= my.table$Recycling , y= my.table$Landfill , pch=19 , type= "p",
main= "Relationship between Recycling and Landfill",
xlab="Recyling",
ylab="Landfill")
abline( lm(my.table$Recycling ~ my.table$Landfill), lwd=2 ,ly= "dotted" ,
col="red")
If we consider the terms we have explained and our data outputs.Landfill and Incineration with energy recovery rates of countries are inversely related to each other.The red curve in our output clearly shows us this relationship. This relationship, which we usually see in developed countries, is related to the high rate of Incineration with energy recovery technic. In generally this technic is used from development countries. Because of the construction cost, developing countries use this technich with really low rates.Developed countries have kept this Landfill rate high by using the advanced industrial facilities.
par(mar=c(5,5,5,7.2), xpd=FALSE)
plot(x= my.table$`Incineration with energy recovery` , y= my.table$Landfill ,
pch=19 , type= "p",
main= "Relationship between IER and Landfill",
xlab="Incineration with energy recovery",
ylab="Landfill")
abline( lm(my.table$`Incineration with energy recovery` ~ my.table$Landfill),
lwd=2 ,ly= "dotted" , col="red")
If we need to examine the rate of Turkey in the pie chart;unfortunately, it is seen that the Landfill rate is the highest in our country according to 2019 data. The recycling rate is very low compared to the Landfill rate.We hope that in the near future, we can see the rates to be the opposite of this situation.It is in our hands to change these rates by raising our awareness of this issue, which is one of the goals of our project.
# Create data for the graph.
Turkey <- c(12,88)
labels <- c("Recycling","Landfill")
# Plot the chart with title.
pie(Turkey, labels, main = "Turkey's Recyling and Landfill Rates")
The recycling rate of municipal waste in developed countries is higher than in underdeveloped or developing countries. From this point of view, we can say that developed countries attach great importance to recycling. Slovenia, Lithuania are the countries that have increased the percentage of municipal recycling at the highest rate in 12 years. Since there is no data for 2004 and 2014 in Serbia and Bosnia and Herzegovina, and for 2004 in Montenegro, a certain interpretation cannot be made. According to the data given in the countries of Turkey and Romania, it seems that the necessary importance is not given to recycling.
# In this code, we filter the data and bring the data of 2004 and
# 2016 into separate tables.
yil2004 <- A %>%
select("date.year", "country.text", "value.number") %>%
filter(date.year == 2004) %>%
arrange(country.text)
yil2016 <- A %>%
select("date.year", "country.text", "value.number") %>%
filter(date.year == 2016) %>%
arrange(country.text)
Denmark is the biggest producer of municipal waste per capita in the European Union, with each inhabitant generating an average of 844 kilograms of waste in 2019. Luxembourg and Malta came in second and third, respectively. With 280 kilograms of waste Romania is the lowest producer in our data in 2019. On the other end, after Romania, Poland is the second country to produce the least waste with 336 kilos per person, Estonia follows in third place (369 kilos per person) and Hungary in fourth place (387 kilos per person).
cwasteproduced %>%
arrange(value) %>%
mutate(name=factor(region, levels=region)) %>%
ggplot( aes(x=name, y=value)) +
geom_segment( aes(xend=name, yend=0),color="red") +
geom_point( size=3, color="red") +
coord_flip() +
theme_bw() +
xlab("")+
ylab("Total volume of waste produced per capita in the EU 2019")+
theme(
panel.grid.major.y = element_blank(),
panel.border = element_blank(),
axis.ticks.y = element_blank()
)
my.table %>%
arrange(Recycling) %>%
mutate(name=factor(region, levels=region)) %>%
ggplot( aes(x=name, y=Recycling)) +
geom_segment( aes(xend=name, yend=0),color="green") +
geom_point( size=3, color="green") +
coord_flip() +
theme_bw() +
xlab("")+
ylab("Recycling Rates (%)")+
theme(
panel.grid.major.y = element_blank(),
panel.border = element_blank(),
axis.ticks.y = element_blank()
)
In addition to the graph, you can see it in the form of a map below. As you can see, the darker areas show countries with a higher ratio. The ratio decreases as the color tone become lighter.
map1<-ggplot(mapdata1, aes( x = long, y = lat, group=group)) +
ggtitle("Total volume of waste produced per capita in the EU 2019
(in kilograms per inhabitant)")+
geom_polygon(aes(fill = value), color = "black") +
scale_fill_gradient(name = "Volume", high = "#641E16",
low = "#FFA07A", na.value = "grey50")+
theme(axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
axis.title.y=element_blank(),
axis.title.x=element_blank(),
rect = element_blank())
map1
map3<-ggplot(mapdata2, aes( x = long, y = lat, group=group)) +
ggtitle("Recycling rates by country 2019 ")+
geom_polygon(aes(fill = Recycling), color = "black") +
scale_fill_gradient(name = " %", high = "#006400",
low = "#00FF7F", na.value = "grey50")+
theme(axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
axis.title.y=element_blank(),
axis.title.x=element_blank(),
rect = element_blank())
map3
This data includes raw data as reported directly to The Basel Convention on the Control of Transboundary Movements of Hazardous Wastes and their Disposal. The amount of waste Turkey imported in 2004 while it was 3,425 tons, this amount was in 2019 is 235,241.9 tons. These numbers show us that the rate of exported waste to Turkey has increased tremendously.
WasteFilter3 <- Waste %>%
select(Year, Import_export, Country_Name,Quantity_in_tonnes) %>%
filter(Year == "2004") %>%
filter(Import_export == "Export") %>%
filter(Country_Name=="Turkey") %>%
filter(Quantity_in_tonnes>=0) %>%
summarise(Quantity_in_tonnes=sum(`Quantity_in_tonnes`))
names(WasteFilter3)[1]<-"Quantity_in_tonnes2004"
#View(WasteFilter3)
WasteFilter1 <- Waste %>%
select(Year, Import_export, Country_Name,Quantity_in_tonnes) %>%
filter(Year == "2019") %>%
filter(Import_export == "Export") %>%
filter(Country_Name=="Turkey") %>%
filter(Quantity_in_tonnes>=0) %>%
summarise(Quantity_in_tonnes=sum(`Quantity_in_tonnes`))
names(WasteFilter1)[1]<-"Quantity_in_tonnes2019"
#View(WasteFilter1)
The figure below shows the main treatments of hazardous waste exported by the EU Member States between 2001-2018. To explain what disposal and recovery contain, there are four main types included in our data for recovery. These types are recycling(reclamation of organic substances which are not used as solvents), use as a fuel (other than in direct incineration), or other means to generate energy, recycling(reclamation of metals and metal compounds), recycling(reclamation of other inorganic materials). Secondly, there are three main types included in our data for disposal. These types are physical/chemical treatment(e.g., evaporation, drying, calcination, neutralization, precipitation, etc.), deposit into or onto land, (e.g., landfill, etc.), and incineration on land. . Looking all years, it is seen that the recovery rate is higher than the disposal rate. While the disposal rate in 2018 was almost 3 times that of 2001, the recovery rate in 2018 is 2 times that of 2001. It should be hoped that in the coming years, a decrease in the disposal rate and an increase in the recovery rate can be achieved and the countries that import the waste can make progress in this regard. Otherwise, it is for us that these exported wastes are in the form of disposal will unleash an irreversible crisis.
barplot(t(as.matrix(my.df[, 2:3])),
beside = TRUE,
names.arg = my.df$Year,
legend.text = TRUE,
args.legend = list(x = 40, y = 7.5, ncol = 2),
ylim = c(0,7),
ylab = "Million Tones",
xlim=c(0,55),
xlab="Treatment of hazardous waste shipments from EU,2001-2018",
col=c("#a62bcd","#6dffdc"))
Denmark, which has a population of 5.7 million people, is a top generator of waste in 2019. In general, the people who generate the most waste live in the richest countries of western Europe. The countries that create the least waste have a smaller gross domestic product (GDP) than their northern neighbours.
GDP <- ggplot(data = yeni, aes(y = reorder(region, gdp), x = gdp)) +
labs(x="GDP in million euros",y= "", title="")+
geom_bar(stat = "identity") +
theme_bw()
WASS <- ggplot(data = cwasteproduced, aes(y = reorder(region, value), x = value)) +
labs(x="Total volume of waste produced",y= "", title="")+
geom_bar(stat = "identity") +
theme_bw()
When we examine all our data, it is seen how the waste problem is a big factor for our world and we need to develop ways to deal with it in various ways. We believe that awareness of this issue will increase over time and that we can solve this problem with education and government policy. We have only one world and we have no right to turn it into a garbage dump. Save the world.
The main point of this study was to examine the recycling movement in Europe from various perspectives. In order to make this evaluation, we first examined the recycling and landfill rates in European countries. In this review, we observed that recycling and landfill rates are inversely proportional. Similarly, we observed that there is an opposite relationship between the graph we made , incineration with energy recovery and the rate of landfill. When we examined the countries, we saw that the developing countries generally have a high landfill rate. Then, we specially adapted Turkey’s recycling and landfill rate to the pie chart. And with this graph, we saw that the rate of landfill is high in Turkey, as in other developing countries.
Another of our data included recycled municipal waste rates in 2004 and 2016. By visualizing these two years in two separate graphs, we compared the recycling rates in 2004 and 2016. As we can see in these two graphs, there has been an increase in the rate of recycled municipal waste on a country basis. In some countries such as Poland, Portugal and Romania, this increase was at a high rate.
Another of our data included the total volume of waste generated per capita in the EU in 2019. When we compared this data and the data containing the recycling rate we examined earlier, by converting it to the same type of graph, we saw that the total waste and recycling rate are not always directly proportional. For example, when we look at Greece, we can see that although the recycling rate is low, the total waste volume is high. We observed these two graphs by visualizing them as density maps.
Another data we examined was the data containing the amount of hazardous waste shipments from the EU processed between 2001-2018. When we visualized this data as a bar graph, we saw that the recycling rate has a variable change over the years.
Then, we visualized our data, which includes the gross national product data, which is an important criterion for measuring the development level of countries. When we examine the bar graph we created, we can observe that the gross national product and the amount of waste produced increase at a similar rate.
Finally, the data we used was the data that includes waste shipment export and import data. By filtering this data, we found the amounts in 2004 and 2019 only in Turkey. And we have observed that the shipment of waste has increased significantly.
After these examinations, perhaps the most important thing to say at the end is that we should not give up on recycling. Although the recycling rate has increased in the past years, we should continue to increase the recycling rate at the same rate as the amount of waste produced and many other factors will also increase. And we must always remind the world that this issue is vital.