#Author: Adrian Hess
library(readxl)
data <- read_excel("ekologia/full2.xlsx")

library(ggplot2)

ggplot(data, aes(x=transekt,y=poletka, fill= Carpinus)) +
  geom_tile() +
  scale_fill_gradient( low="white",  high="hotpink1",   name="Występowanie Carpinus betulus:")
                                                                 
