Aim 1:
Aim 2:
Aim 3:
# 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. |
+-------+
# 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.