Переменная сеанса для отображения страницы включает в себя [дубликат]

1) Проблема заключается в том, что sales_clean$Year является factor. 2) ggplot interprit ваш x-значение как категоричное, y-значение как непрерывное и агрегированное значение в штриховом графике (вместо этого есть строки). См. Симуляцию:

library(ggplot2)
set.seed(123)
sales_clean <- data.frame(Year = rep(factor(2014:2018), 1000), Net_Rev = abs(rnorm(5000)))
plotLine <- ggplot(sales_clean, aes(Year, Net_Rev, na.rm = FALSE)) 
plotLine + geom_line()

3) Одним из решений является преобразование коэффициента в числовое и совокупное по году. См. Результат:

sales_clean$Year_num <- as.numeric(as.character(sales_clean$Year))
sales_clean_plot <- aggregate(Net_Rev ~ Year_num, sales_clean, sum)

plotLine <- ggplot(sales_clean_plot, aes(Year_num, Net_Rev, na.rm = FALSE)) 
plotLine + geom_line()

4) Лучше не использовать $ в ggplot aes(), поскольку имя data.frame уже упоминается в первом аргументе ggplot(). Код становится грубым и трудно читаемым.

0
задан user3234069 19 January 2019 в 18:54
поделиться

1 ответ

У вас есть проблема с порядком обработки в IIS. Включения на стороне сервера выполняются до обработки сценария VBScript. Используйте другой метод для включения предпочтительного сценария на своей странице -

. Пример в этой ссылке: http://www.4guysfromrolla.com/webtech/022504-1.shtml [ 114]

Пример кода:

<%
Dim strInclude
Dim I_want_to_include_file_1
I_want_to_include_file_1 = True

If I_want_to_include_file_1 = True Then
  strInclude = getMappedFileAsString("include1.asp")
Else
  strInclude = getMappedFileAsString("include2.asp")
End If

Execute strInclude
%>

Поскольку этот метод не использует встроенное включение IIS, код будет запускаться при запуске страницы, но будет только один файл. включен. Код для функции getMappedFileAsString (filepath) показан ниже. По сути, он захватывает полное содержимое указанного пути к файлу, возвращая содержимое файла в виде строки.

Function getMappedFileAsString(byVal strFilename)
  Const ForReading = 1

  Dim fso
  Set fso = Server.CreateObject("Scripting.FilesystemObject")

  Dim ts
  Set ts = fso.OpenTextFile(Server.MapPath(strFilename), ForReading)

  getMappedFileAsString = ts.ReadAll
  ts.close

  Set ts = nothing
  Set fso = Nothing
End Function
0
ответ дан Sean Murphy 19 January 2019 в 18:54
поделиться
Другие вопросы по тегам:

Похожие вопросы: