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()
. Код становится грубым и трудно читаемым.
У вас есть проблема с порядком обработки в 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) показан ниже. По сути, он захватывает полное содержимое указанного пути к файлу, возвращая содержимое файла в виде строки.
blockquote>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