1
$\begingroup$

The following code generates a dataset from a table within a webpage:

ClearAll; resultsByTurbineTypeRaw = Import["https://www.vestas.com/en/products/track_record#!results-by-turbine-type", "Data"]; position = FirstPosition[resultsByTurbineTypeRaw, "Wind Turbine"] resultsByTurbineTypeRaw[[2, 6, 1, 1]] resultsByTurbineType1 = resultsByTurbineTypeRaw[[2, 6, Range[20]]]; first = First[resultsByTurbineType1] rest1 = Rest[resultsByTurbineType1]; listB = Join[{first}, rest1]; vestasOrdersByTurbineType = Dataset[AssociationThread[First@listB, #] & /@ Rest@listB]

It can be noted upon code execution that the values for the columns "Quantity" and "Total MW" can contain commas but do not always do so.

How can I create the proper syntax for a StringReplace function that deletes the commas so that the substituted values are presented as Numbers rather than Strings, thereby creating a new version of the dataset without commas, while not failing on Strings that do not contain commas?

Improve this question
$\endgroup$
1

2 Answers 2

Reset to default
3
$\begingroup$

Based on the clarification that only commas need to be removed, here is one way

vestasOrdersByTurbineType[All, <|#, "Quantity" -> Interpreter["Number"][#"Quantity"], "Total MW" -> Interpreter["Number"][#"Total MW"]|> &] InputForm@Normal@First@% (* <|"Wind Turbine" -> "Other", "Quantity" -> 34652, "Total MW" -> 23716|> *)
Improve this answer
$\endgroup$
4
  • 1
    $\begingroup$ you can also use vestasOrdersByTurbineType[All, {"Quantity" -> Interpreter["Number"], "Total MW" -> Interpreter["Number"]}] (+1) $\endgroup$ Commented Aug 9, 2021 at 7:46
  • $\begingroup$ @kglr Thanks. I did not know this nice shortcut. $\endgroup$ Commented Aug 9, 2021 at 14:32
  • $\begingroup$ Works like a charm. Thanks for providing a new way to approach dataset manipulation. Can kglr explain the (+1) syntax? I haven't seen this construction before. Where is it documented? $\endgroup$ Commented Aug 9, 2021 at 17:04
  • $\begingroup$ The (+1) is just the way @klgr indicated that he upvoted the answer. Used frequently on MSE. $\endgroup$ Commented Aug 9, 2021 at 17:09
2
$\begingroup$ 
f[x_] := StringJoin[Select[Characters[x], Or[DigitQ[#], # == "."] &]] ToExpression[f /@ {"1,234.56", "£5,432"}]

{1234.56, 5432}

Improve this answer
$\endgroup$
2
  • $\begingroup$ Works nicely when the {row, column} element of the dataset is a digit, but converts to Null when the element contains no digits and returns a 0. when the element is a string partially containing a number within it (eg name of turbine type is " V90-3.0) . Not sure how to structure conditionals. $\endgroup$ Commented Aug 7, 2021 at 16:58
  • $\begingroup$ Perhaps I didn't make my question clear. I am dealing with columns of a dataset, so the function(s) need to operate over a list. I assume I can Flatten and then put all entries in a single list, apply the function and then ArrayReshape to reconstruct the new dataset. The function f[x_] := StringJoin[Select[Characters[x], Or[DigitQ[#], # == "."] &]] when operating on the 4 types of data here ToExpression[f /@ {"Other", "1,574", "732", "V80-1.8/2.0 MW®"}] returns {Null, 1574, 732, 0.} What I am looking for is a function that will return {"Other",1574,732,"V80-1.8/2.0 MW®"} $\endgroup$ Commented Aug 8, 2021 at 1:17

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.