要避免在Plotly（R）中显示JSON错误，并显示日语字符串，可以遵循以下解决方法：

1. 使用tryCatch函数来捕获可能出现的JSON错误，并显示自定义的错误消息。以下是一个示例代码：

library(plotly)

# 定义一个函数来创建Plotly图表
create_plot <- function(data) {
  tryCatch(
    {
      # 创建图表的代码
      plot <- plot_ly(data, x = ~x, y = ~y, type = 'scatter', mode = 'lines')
      print(plot)
    },
    error = function(e) {
      # 自定义错误消息
      message("无法创建图表：", e$message)
    }
  )
}

# 示例数据
data <- data.frame(x = 1:5, y = c(2, 4, 6, 8, 10))

# 调用函数创建图表
create_plot(data)

2. 如果要显示日语字符串，可以确保在代码中使用UTF-8编码，并使用合适的字体来支持日语字符。以下是一个示例代码：

library(plotly)

# 设置绘图环境的UTF-8编码
Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")

# 定义一个函数来创建带有日语字符串的Plotly图表
create_plot_with_japanese_string <- function(data) {
  tryCatch(
    {
      # 创建图表的代码，包括使用日语字符串
      plot <- plot_ly(data, x = ~x, y = ~y, type = 'scatter', mode = 'lines',
                      text = c("こんにちは", "さようなら", "ありがとう"))
      print(plot)
    },
    error = function(e) {
      # 自定义错误消息
      message("无法创建图表：", e$message)
    }
  )
}

# 示例数据
data <- data.frame(x = 1:3, y = c(2, 4, 6))

# 调用函数创建图表
create_plot_with_japanese_string(data)

3. 如果你想一次只对一个变量运行一个函数，可以使用一个循环来迭代变量，并在每次迭代中调用函数。以下是一个示例代码：

# 示例数据
data1 <- data.frame(x = 1:5, y = c(2, 4, 6, 8, 10))
data2 <- data.frame(x = 1:3, y = c(3, 6, 9))

# 定义一个函数来创建图表
create_plot <- function(data) {
  tryCatch(
    {
      # 创建图表的代码
      plot <- plot_ly(data, x = ~x, y = ~y, type = 'scatter', mode = 'lines')
      print(plot)
    },
    error = function(e) {
      # 自定义错误消息
      message("无法创建图表：", e$message)
    }
  )
}

# 迭代变量并调用函数
for (data in list(data1, data2)) {
  create_plot(data)
}

通过以上解决方法，你可以避免在Plotly（R）中显示JSON错误，并且可以显示日语字符串，同时一次只对一个变量运行一个函数。