library(ggplot2)
library(dplyr)
# Load the dataset
data <- read.csv("your_dataset.csv")
# Create a new variable
data$new_var <- data$var1 + data$var2
# Create a scatter plot
scatter_plot <- ggplot(data, aes(x = var1, y = var2)) +
geom_point()
# Create a bar plot
bar_plot <- ggplot(data, aes(x = category, y = value)) +
geom_bar(stat = "identity")
# Create a line plot
line_plot <- ggplot(data, aes(x = date, y = measurement)) +
geom_line()
# Create a tabset for the plots
tabset <- tabsetPanel(
tabPanel("Scatter Plot", plotOutput("scatter_plot")),
tabPanel("Bar Plot", plotOutput("bar_plot")),
tabPanel("Line Plot", plotOutput("line_plot"))
)
# Combine the plots and the tabset
final_output <- fluidPage(
fluidRow(
column(6, tabset)
)
)