# You can write R code here and then click "Run" to run it on our platform

library(readr)
library(plotly)

# The competition datafiles are in the directory ../input
# Read competition data files:
train <- read.csv("../input/train.csv")
test <- read.csv("../input/test.csv")

rotate <- function(x) t(apply(x, 2, rev))
number<-matrix(as.numeric(train[2,-1]),ncol=28)

p1<-plot_ly(x=c(1:255),y=(1:255),z= rotate(rotate(rotate(matrix(as.numeric(train[1,-1]),ncol=28)))), type = "heatmap")
p2<-plot_ly(x=c(1:255),y=(1:255),z= rotate(rotate(rotate(matrix(as.numeric(train[9,-1]),ncol=28)))), type = "heatmap")
p3<-plot_ly(x=c(1:255),y=(1:255),z= rotate(rotate(rotate(matrix(as.numeric(train[4,-1]),ncol=28)))), type = "heatmap")
p4<-plot_ly(x=c(1:255),y=(1:255),z= rotate(rotate(rotate(matrix(as.numeric(train[6,-1]),ncol=28)))), type = "heatmap")
subplot(p1, p2,p3,p4,nrows = 2)