ggplot

Load library

library(tidyverse)
library(readxl)

Read data set (Random number generated value)

data <- read_excel("Table.xlsx")
data$Value<-round(data$Value,0) ### integer value

data$Country<-factor(data$Country, 
                    levels = c("Gambia", "Mali", "Mozambique",
                               "Kenya", "India", "Bangladesh",
                               "Pakistan"))

data$var<-factor(data$Path,
              levels = c("Rotavirus","Norovirus", "Adenovirus",
                         "Astrovirus","Sapovirus"))

For positive

data %>%
  filter(Type=="Positive")%>%
  ggplot(aes(Age,Value, color=Path))+
  geom_point()+
  facet_wrap(~ Country,scales="free_y", ncol=2)

For negative

data %>%
  filter(Type=="Negative")%>%
  ggplot(aes(Age,Value, color=Path))+
  geom_point()+
  facet_wrap(~ Country,scales="free_y", ncol=2)