binwidth для гистограммы в R

Question

Пока это моя программа.Мне нужно попросить пользователя ввести свою собственную ширину привязки, и я не могу понять, как это сделать.

file.name <- readline('Please enter name and file location: ')
has.header <- readline('Does your data file contain a header (Y/N)? ')

if (has.header == 'Y')
{
  file.df <- read.table( file = file.name, sep=',', header = TRUE)
}else
{
  file.df <- read.table ( file = file.name, sep=',', header = FALSE)
}
cat('\n')
print(file.df)
cat('\n')

#Histogram 
print(head(file.df))
column <- as.numeric(readline('What column do you want to graph (enter           number)? '))
print(hist(file.df[ ,column]))

#New bin width
binsize <- readline("Enter a new bin width for your graph: ")

Answer 1

binsize <- as.integer(readline("Enter a new bin width for your graph: "))
xt <- readline("Enter x axis title: ")
yt <- readline("Enter y axis title: ")

binwidth <- as.integer(nrow(file.df)/binsize))

hist(file.df[, column], breaks = binwidth, xlab = xt, ylab = yt)