In mdozmorov/MDtemplate: Templates for code, grants, manuscripts, and Xaringan/Beamer presentations

Title

Specific Aims

Aim 1:

Aim 2:

Aim 3:

Research Strategy

# https://yihui.org/knitr/options/#plots
knitr::include_graphics(system.file("extdata", "chicken.png", package = "MDtemplate"))

+-------+ | |
| Figure 1. How to insert a figure. Chicken chicken chicken. | +-------+

Significance

Innovation

Approach

Overall strategy

Aim 1:

Limitations and alternatives

Aim 2:

Aim 3:

Timeline

# https://davetang.org/muse/2017/02/03/gantt-chart-using-r/
# Load libraries and clear workspace.
# install.packages('ggplot2')
# install.packages('reshape2')
library(reshape2)
library(ggplot2)

# Create your tasks as vectors in the format name, start date, and end date.
task1 <- c('1. Developing the method for joint normalization of multiple Hi-C datasets',  '2019-07-01', '2020-06-30')
task2 <- c('2. Adaptating the empirical Bayes approach for differential analysis of multiple Hi-C datasets',  '2019-07-01', '2022-06-30')
task3 <- c('3. Implementing the methods as R and Python software', '2019-07-01', '2023-06-30')
task4 <- c('4. Evaluate the methods and the tools using published Hi-C data',  '2021-07-01', '2023-06-30')
# task7 <- c('Education objective 4', '2020-01-01', '2022-12-31')

# Create a data frame with appropriate classes.
df <- as.data.frame(rbind(task4, task3, task2, task1)) # task7, task6, task5, 
names(df) <- c('task', 'start', 'end')
df$task <- factor(df$task, levels = df$task)
df$start <- as.Date(df$start)
df$end <- as.Date(df$end)
df_melted <- melt(df, measure.vars = c('start', 'end'))

# Create the plot.
# starting date to begin plot
start_date <- as.Date('2019-07-01')

ggplot(df_melted, aes(value, task)) + 
  geom_line(size = 4) +
  labs(x = '', y = '') + # , title = 'Gantt chart using ggplot2'
  theme_bw(base_size = 8) +
  theme(plot.title = element_text(hjust = 0.5),
        panel.grid.major.x = element_line(colour="black", linetype = "dashed"),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.text.x = element_text(angle = 0, size = 8),
        axis.text.y = element_text(size = 8)) +
  scale_x_date(date_labels = "%Y %b", limits = c(start_date, NA), date_breaks = "3 months") + #  breaks = c('2019-07-01', '2020-07-01', '2021-07-01', '2022-07-01', '2023-07-01')
  theme(axis.text.x = element_text(angle = 30, hjust = 1))
# see ?strptime if you want your date in a different format
# see http://docs.ggplot2.org/current/scale_date.html if you want to adjust the x-axis

References

mdozmorov/MDtemplate documentation built on April 19, 2024, 4:42 p.m.