HerrboldtLesson

Load library

library(readr)
library(ggplot2)

Create data variable

MAH_assignment_data <- read_csv("MAH_assignment_data.csv")

## Rows: 696 Columns: 4
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (3): Sample, Tissue, Gene
## dbl (1): Expression
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

AssignmentData <- MAH_assignment_data

Create GG plot with assignment data

ggplot(AssignmentData,
       aes(x = Sample, y = Gene, fill = Expression)) +
geom_tile()

# Create heat map!

ggplot(AssignmentData,
       aes(x = Sample, y = Gene, fill = Expression)) +
  geom_tile(colour = "black", linewidth = 0.5) +
  scale_fill_gradient(low = "white", high = "purple") +
  theme_grey(base_size = 12) +
  ggtitle(label = "Pheromone Gene Expression") +
  theme(axis.ticks = element_blank(),
        plot.background = element_blank(),
        panel.background = element_blank(),
        panel.border = element_blank(),
        plot.title = element_text(face = "bold"),
        legend.title = element_text(face = "bold"),
        axis.title = element_text(face = "bold"))