{ "id": 12822, "title": "Plot the digits using average of the corresponding pixels", "url": "/competitions/digit-recognizer/discussion/12822", "author_name": "Brainalytics", "post_date": "2015-03-15T20:36:18.710000", "votes": 1, "comment_count": 1, "views": null, "content": "

# Load the data
setwd("")
train <- read.csv("train.csv", header = TRUE)
df <- train[0,]

\n

# Compute the Average of Pixels
for(i in 0:(length(unique(train$label))-1)){
digit = i
temp <- train[train$label==digit,]
df <- rbind(df, t(round(colMeans(temp))))
}

\n

#Plot the images using the pixel values
par(mfrow=c(2,5))
for(i in 1:nrow(df)){
n = matrix(as.numeric(df[i,2:ncol(df)])/256,28,28,byrow=TRUE)
image(n, axes = FALSE, col = grey(seq(0, 1, length = 256)),xlab=df[i,1])
}

", "messages": [ { "id": 66275, "postDate": "2015-03-15T20:36:18.710Z", "content": "

# Load the data
setwd("")
train <- read.csv("train.csv", header = TRUE)
df <- train[0,]

\n

# Compute the Average of Pixels
for(i in 0:(length(unique(train$label))-1)){
digit = i
temp <- train[train$label==digit,]
df <- rbind(df, t(round(colMeans(temp))))
}

\n

#Plot the images using the pixel values
par(mfrow=c(2,5))
for(i in 1:nrow(df)){
n = matrix(as.numeric(df[i,2:ncol(df)])/256,28,28,byrow=TRUE)
image(n, axes = FALSE, col = grey(seq(0, 1, length = 256)),xlab=df[i,1])
}

", "votes": 1 }, { "id": 174164, "postDate": "2017-04-10T15:00:28.700Z", "content": "

How would you plot 100 digits on the same plot ?

", "rawMarkdown": "How would you plot 100 digits on the same plot ?" } ], "comments": [ { "id": 174164, "author_name": "NicoCoallier", "author_url": "", "post_date": "2017-04-10T15:00:28.700000", "content": "

How would you plot 100 digits on the same plot ?

", "votes": 0, "replies": [] } ], "raw_markdown_by_id": { "66275": "", "174164": "How would you plot 100 digits on the same plot ?" } }