dplyr ile Programlama
Dr. Chester Ismay
Educator, Data Scientist, and R/Python Consultant
library(ggplot2) ggplot( world_bank_data, aes(x = infant_mortality_rate) ) +geom_histogram(color = "white")

ggplot( world_bank_data, aes(x = infant_mortality_rate) ) + geom_histogram(color = "white") +ggtitle("A histogram of infant_mortality_rate")

# Önceki grafik kodu
ggplot(world_bank_data, aes(x = infant_mortality_rate)) +
geom_histogram(color = "white") +
ggtitle("A histogram of infant_mortality_rate")
# Bir fonksiyon tanımla my_histogram <- function(df, x_var) {ggplot(df, aes(x = x_var)) + geom_histogram(color = "white") + ggtitle(paste("A histogram of", x_var)) }
# Fonksiyona ilk deneme my_histogram <- function(df, x_var) { ggplot(df, aes(x = x_var)) + geom_histogram(color = "white") + ggtitle(paste("A histogram of", x_var)) }# Fonksiyonu çağır my_histogram(df = world_bank_data, x_var = infant_mortality_rate)
Error in paste("A histogram of", x_var) :
object 'infant_mortality_rate' not found
# Fonksiyona ilk deneme
my_histogram <- function(df, x_var) {
ggplot(df, aes(x = x_var)) +
geom_histogram(color = "white") +
ggtitle(paste("A histogram of", x_var))
}
# Hata durmasın diye gerekli düzenlemeler my_histogram <- function(df, x_var) { ggplot(df, aes(x = {{ x_var }})) +geom_histogram(color = "white") + ggtitle(paste("A histogram of",as_label(enquo(x_var))) }
# rlang operatörleriyle tanımlı fonksiyon my_histogram <- function(df, x_var) { ggplot(df, aes(x = {{ x_var }})) + geom_histogram(color = "white") + ggtitle(paste( "A histogram of", as_label(enquo(x_var)) )) }# Fonksiyonu pipe ile çağır! world_bank_data %>% my_histogram(x_var = perc_rural_pop)

dplyr ile Programlama