🌿 Ethiopian Kale Altitude Explorer

Welcome to the Ethiopian Kale Altitude Explorer — a Shiny app designed to visualize and filter kale accessions based on altitude.

• Built with R and Shiny
  
• Hosted on shinyapps.io
  
• Source code available on GitHub

🌍 Why Altitude Matters

• Altitude influences crop adaptation and trait expression
  
• Ethiopian kale accessions span diverse agroecological zones
  
• Filtering by altitude helps identify region-specific accessions

🧪 App Features

• Altitude slider: Select range from 1000–3500 meters
  
• Leaflet map: Visualize accession locations
  
• Summary statistics: Mean, range, count
  
• Toggleable table: View filtered accession data

📊 Embedded R Code

Import Data

accessions <- read.csv("BC_data.csv", stringsAsFactors = FALSE)
head(accessions)

##   Accession    Latitude   Longitude Altitude  Woreda   Zone
## 1     Bc001 06˚08'00"-N 37˚35'00"-E     1930    Sodo Gurage
## 2     Bc002 08˚20'00"-N 37˚36'00"-E     2000 Abeshge Gurage
## 3     Bc003 08˚63'10"-N 38˚10'14"-E     2243    Esha Gurage
## 4     Bc004 06˚09'00"-N 37˚35'00"-E     2200   Cheha Gurage
## 5     Bc005 08˚10'00"-N 37˚18'00"-E     2150    Sodo Gurage
## 6     Bc006 08˚22'47"-N 37˚38'21"-E     1470 Abeshge Gurage

📊 Creating Map

library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

plot_ly(
  data = accessions,
  x = ~Accession,
  y = ~Altitude,
  type = 'scatter',
  mode = 'markers+lines',
  marker = list(size = 10, color = ~Altitude, colorscale = 'Viridis'),
  line = list(color = 'gray')
) %>%
  layout(
    title = "Altitude Variation Across Ethiopian Kale Accessions",
    xaxis = list(title = "Accession ID"),
    yaxis = list(title = "Altitude (m)")
  )

🚀 Impact & Future Work

• Supports breeding and ecological research • Helps identify altitude-adapted accessions • Future improvements: • Add trait overlays • Integrate climate zone filters • Export filtered results