Converting Variables to Factors with as.factor

In R, categorical data is handled using factors. The as.factor() function transforms a vector into a factor type, which is essential for statistical modeling and data analysis.

# Sample character vector representing categories
gender <- c("Male", "Female", "Male", "Female", "Male")

# Convert to factor type
gender_factor <- as.factor(gender)

# Display results
cat("Original Vector:", gender, "\n")
cat("Factorized Vector:", gender_factor, "\n")
cat("Factor Levels:", levels(gender_factor), "\n")

Output:

Original Vector: Male Female Male Female Male 
Factorized Vector: 2 1 2 1 2 
Factor Levels: Female Male 

The factor stores the unique values as levels, with "Female" assignedd level 1 and "Male" assigned level 2 internally.

---

Converting Objects to Numeric with as.numeric

The as.numeric() function converts character strings or other data types to numeric values, wich is frequently used when reading data from external sources.

# Character vector containing numeric strings
prices <- c("29.99", "49.95", "19.50", "99.00")

# Convert to numeric type
prices_numeric <- as.numeric(prices)

# Display transformation results
cat("String Values:", prices, "\n")
cat("Numeric Values:", prices_numeric, "\n")

Output:

String Values: 29.99 49.95 19.50 99.00 
Numeric Values: 29.99 49.95 19.5 99 

The conversion enables mathematical operations that would otherwise fail on character data.

---

Replacing Values with NA Using na_if

The na_if() function from dplyr replaces specified values with missing values (NA), which is useful for data cleaning.

library(dplyr)

# Vector with sentinel values
scores <- c(95, -1, 88, -1, 72, -1, 100)

# Replace -1 with NA
cleaned_scores <- na_if(scores, -1)

# Display comparison
cat("Original Scores:", scores, "\n")
cat("Cleaned Scores:", cleaned_scores, "\n")

Output:

Original Scores: 95 -1 88 -1 72 -1 100 
Cleaned Scores: 95 NA 88 NA 72 NA 100 

---

Row-Binding Data Frames with rbind

The rbind() function stacks data frames or matrices vertical, combining rows from multiple sources into a single structure.

# First dataset
students_spring <- data.frame(
    Name = c("Emma", "Liam"),
    Grade = c(87, 92)
)

# Second dataset
students_fall <- data.frame(
    Name = c("Olivia", "Noah"),
    Grade = c(78, 95)
)

# Combine by rows
all_students <- rbind(students_spring, students_fall)

# View results
print(all_students)

Output:

     Name Grade
1    Emma    87
2    Liam    92
3  Olivia    78
4    Noah    95

Practical Consideration: Before using rbind, verify that both data frames share identical column names and data types. Mismatched structures will cause errors.

---

Handling Column Mismatches in rbind

When data frames have different column sets, you can extract common columns before binding:

# Data frame with additional column
df1 <- data.frame(Name = c("Alice", "Bob"), Age = c(25, 30))
df2 <- data.frame(
    Name = c("Charlie", "David"),
    Age = c(35, 40),
    Department = c("Sales", "Engineering")
)

# Identify matching columns
common_names <- intersect(names(df1), names(df2))

# Subset to common columns only
df1_matched <- df1[, common_names]
df2_matched <- df2[, common_names]

# Bind the matched data frames
combined <- rbind(df1_matched, df2_matched)
print(combined)

Output:

     Name Age
1   Alice  25
2     Bob  30
3 Charlie  35
4   David  40

This approach preserves only the columns present in both data frames, ensuring successful binding when column sets partially overlap.