如何在R中将数据框转换为匹配项显示TRUE/FALSE的基因-字符矩阵？

Hey there! Let's break down exactly how to turn your original data frame into the TRUE/FALSE matrix you're aiming for. I'll cover both base R and tidyverse approaches so you can pick what fits your learning style.

Step 1: Start with Your Original Data #

First, let's recreate your data frame correctly (note that your "NA" entries are strings, not actual NA values, so we'll handle that first):

# Create the original data frame
df <- data.frame(
  Gene1 = c("A","B","C","D"), 
  Gene2 = c("B","E","NA","NA"), 
  Gene3 = c("B","D","E","F"),
  stringsAsFactors = FALSE  # Important to avoid factor issues
)

Step 2: Clean Up "NA" Strings #

Since your "NA" entries are just text, let's convert them to actual NA values so we can ignore them later:

df[df == "NA"] <- NA

Approach 1: Base R #

If you prefer sticking to base R (no extra packages needed), here's how to do it:

1. Extract all unique characters from the data frame (excluding NA):

all_chars <- unique(unlist(df))
all_chars <- all_chars[!is.na(all_chars)]  # Remove NA from the list

2. Build the result matrix by checking each Gene column against every character:

# Initialize the result data frame with Gene names as row names
result_base <- data.frame(row.names = colnames(df))

# Loop through each character to fill TRUE/FALSE values
for(char in all_chars) {
  result_base[[char]] <- sapply(df, function(col) char %in% na.omit(col))
}

# View the result
result_base

This will output exactly the structure you wanted:

A     B     C     D     E     F
Gene1 TRUE  TRUE  TRUE  TRUE FALSE FALSE
Gene2 FALSE TRUE FALSE FALSE  TRUE FALSE
Gene3 FALSE TRUE FALSE  TRUE  TRUE  TRUE

Approach 2: Tidyverse (dplyr + tidyr) #

If you're learning the tidyverse (a popular set of R packages for data manipulation), this pipe-based approach might feel more intuitive:

First, load the tidyverse package (install it first with install.packages("tidyverse") if you haven't):

library(tidyverse)

Then run this pipeline:

result_tidy <- df %>%
  # Convert from wide to long format: each row is a Gene + character pair
  pivot_longer(everything(), names_to = "Gene", values_to = "Char") %>%
  # Remove rows with NA values (our old "NA" strings)
  drop_na(Char) %>%
  # Add a TRUE flag for every existing Gene-character match
  mutate(Flag = TRUE) %>%
  # Convert back to wide format, filling missing matches with FALSE
  pivot_wider(names_from = Char, values_from = Flag, values_fill = FALSE) %>%
  # Set Gene names as row names (optional, matches your desired output)
  column_to_rownames("Gene")

# View the result
result_tidy

This will give you the same output as the base R method. Each step is designed to transform the data step-by-step, making it easy to follow along as you learn.

Both methods will produce the exact TRUE/FALSE matrix you described. The tidyverse approach is great for learning how data reshaping works, while base R is good if you want to avoid extra packages.

内容的提问来源于stack exchange，提问作者kin182