Question

给定一组（x，y）坐标，如何从y求解x。如果您要绘制坐标，它们将是非线性的，但非常接近指数。我试过了approx()，但它已经过时了。这是示例数据。在这种情况下，我如何解决y == 50？

  V1      V3
1 5.35 11.7906

2 10.70 15.0451

3 16.05 19.4243

4 21.40 20.7885

5 26.75 22.0584

6 32.10 25.4367

7 37.45 28.6701

8 42.80 30.7500

9 48.15 34.5084

10 53.50 37.0096

11 58.85 39.3423

12 64.20 41.5023

13 69.55 43.4599

14 74.90 44.7299

15 80.25 46.5738

16 85.60 47.7548

17 90.95 49.9749

18 96.30 51.0331

19 101.65 52.0207

20 107.00 52.9781

21 112.35 53.8730

22 117.70 54.2907

23 123.05 56.3025

24 128.40 56.6949

25 133.75 57.0830

26 139.10 58.5051

27 144.45 59.1440

28 149.80 60.0687

29 155.15 60.6627

30 160.50 61.2313

31 165.85 61.7748

32 171.20 62.5587

33 176.55 63.2684

34 181.90 63.7085

35 187.25 64.0788

36 192.60 64.5807

37 197.95 65.2233

38 203.30 65.5331

39 208.65 66.1200

40 214.00 66.6208

41 219.35 67.1952

42 224.70 67.5270

43 230.05 68.0175

44 235.40 68.3869

45 240.75 68.7485

46 246.10 69.1878

47 251.45 69.3980

48 256.80 69.5899

49 262.15 69.7382

50 267.50 69.7693

51 272.85 69.7693

52 278.20 69.7693

53 283.55 69.7693

54 288.90 69.7693

Answer 1

我认为您遇到的问题是approx解决y给定x，而您正在讨论解决x给定的y。因此，在使用x时，您需要切换变量y和approx：

df <- read.table(textConnection("

V1      V3
85.60 47.7548
90.95 49.9749
96.30 51.0331
101.65 52.0207

"), header = TRUE)

approx(x = df$V3, y = df$V1, xout = 50)
# $x
# [1] 50
# 
# $y
# [1] 91.0769

此外，如果y相对于x呈指数关系，则x和log(y)之间存在线性关系，因此使用线性更有意义x和log(y)之间的插值器，然后取指数返回y：

exp(approx(x = df$V3, y = log(df$V1), xout = 50)$y)
# [1] 91.07339

给定数据点和y值，给出x值

1 个答案: